为何在IdFTP.put同时put3个文件会出现服务器上有上传的文件，但是是0字节文件，本地程序就停在这里了，不运行的现像？（不够加分）(100分)

我在同一个buttonclick里
IdFTP.put三次。
IdFTP.put(...); //文本
IdFTP.put(...); //二进制
IdFTP.put(...); //二进制
如果只有一条就正常，如果三条放一起，第一条put执行的时候服务器有要上传的文件，但是程序停了，服务器0字节，本地程序没反应，workbegin和work都不工作。。。也不上传。。。
请问为什么？？

只文本，和只二进制都正常，放一起就不正常。

LastTimeTransfer := Form1.FTP.Size(ExtractFileName(Form1.video_filename.Hint));
if LastTimeTransfer=-1 then
begin
Form1.FTP.Put(Form1.video_filename.Hint, ExtractFileName(Form1.video_filename.Hint) , False);
end
else
begin
LSourceStream := TFileStream.Create(ExtractFileName(Form1.video_filename.Hint), fmOpenRead or fmShareDenyNone);
LSourceStream.Seek(LastTimeTransfer, 0);
Form1.FTP.Put(LSourceStream, ExtractFileName(Form1.video_filename.Hint) , True);
end;
//以上是判断是新上传还是续传，续传md5校验无误；



//问题就是下边这几句，如果放在上边一段的上方，运行就出错，上传时程序会不工作，无法上传。放在下边就正常上传。。原因是什么呢？请问。。。。
Form1.FTP.Put('c:/tmp1.txt', 'intro.txt', false);
Form1.FTP.Put('c:/1.jpg', '1.jpg',false);