ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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;