关于IDFTP断点上传问题

Delphi(Pascal) code

    fileRoute:=fileRoute+'\'+loadRoute+'.rar';    fileCatalog:= ExtractFileName(fileRoute);    tStream:= TFileStream.Create(fileRoute,fmOpenRead or fmShareDenyWrite);    //抓取断点    tStream.Seek(IdFTP_Conn.Size(fileCatalog),soFromBeginning);    //开始断点续传    myStream:= TMemoryStream.Create;    if b_IfExistence= True then      begin        try          while  (tStream.Position  <> tStream.Size) do            begin              s:= tStream.Read(buf,SizeOf(buf));              myStream.Write(buf,s);            end;          tStream.Free;          IdFTP_Conn.Quote('REST'+ FloatToStr(IdFTP_Conn.Size(fileCatalog)));          IdFTP_Conn.Put(myStream,fileCatalog,False);          Application.ProcessMessages;          myStream.Free;

每次一执行到IdFTP_Conn.Quote('REST'+ FloatToStr(IdFTP_Conn.Size(fileCatalog))); 这行就死掉了
求救 应该怎么改改呢
各位大神
希望来点有用的
这两天一直在逛CSDN 常用的几种方法都试过了 基本上只都是说实现下载续传 而没有上传续传
求救呢

[解决办法]
怎用的IdFTP,但IdFTP_Conn.Quote('REST'+ FloatToStr(IdFTP_Conn.Size(fileCatalog)));
中Size的型是Integer，用IntToStr而不能用FloatToStr.
[解决办法]
Indy10的IdFTP已经默认支持断点续传了