Форум АНТИЧАТ - 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;