Delphi XE (Firemonkey) fájl feltöltése FTP szerverre?

TIDFTP komponens

ftp.Host := 'host ip';

ftp.Username := 'felhasználónév';

ftp.password := 'jelszó';

ftp.Connect; //csatlakozás

ftp.Put('feltöltendő_fájl.asd','feltöltött fájl.txt');

ftp.Quit;

ftp.Disconnect

Tessék! Át is nevezi asd-ról a kiterjesztést txt-re

Ha túl nagy a fájl, és kevés a sebesség akkor a Put után slepp(idő milliszekundumban)