Delphi for FTP

Доброго времени суток. В делфи я самоучка. Но вот решил организовать загрузку файла на FTP. Поискал инфу ,вроде сделал ,но что то не так вот исходник кому не лень посмотрите?

HTML:

procedure upload;
begin
form1.idftp1.changedir('www');
form1.idftp1.put('C:\ccc1.txt','ccc1.txt', false ); 
form1.idftp1.disconnect;
end;

procedure tform1.idftp1status(sender: tobject; const astatus: tidstatus;
const astatustext: string);
begin
statusbar1.simpletext:= astatustext;
application.processmessages;
 'connection established'
if statusbar1.simpletext='connection established' then
upload;
end;

 

сообще для подобный целей советую юзать стандартные виндовые апишки из wininet
там коду примерно столько же и будет работать без VCL