FTP sends half a file

Hello
I have a problem with my FTP.
I send a textfile to a PC with FTP
I used the following sentences

FTP1->PutFile(Edit1->Text,aa.dat);
Application->ProcessMessages();
while(FTP1->Busy)
{ Application->ProcessMessages(); }

The problem is that the textfile reaches the destination partly.
Who can help me with this problem

Thanx Erwin.