一个好想关于内存的问题

一个发送文件的线程，先压缩编码，然后发送，连接服务器和发送中间不设断点调试就会报发送失败，弄了半天搞不出问题所在还请大家帮忙。
发送的代码，其实也挺简单
    FtpClient1.HostName := SocketConfigure.MailHost;
    FtpClient1.UserName := 'wss';
    FtpClient1.PassWord := 'wss';
    FtpClient1.Port := 'ftp';
    FtpClient1.OnProgress := nil;
    FtpClient1.OnRequestDone := nil;
    FtpClient1.OnSessionConnected := nil;
    FtpClient1.OnSessionClosed := nil;
    FtpClient1.OnStateChange := nil;
    FtpClient1.DisplayFileFlag := TRUE;
    FtpClient1.HostDirName := 'c:\temp';
    FtpClient1.OnDisplay := DisplayHandler;
    FtpClient1.MultiThreaded := True;
    FtpClient1.Binary := True;
    FtpClient1.HostFileName := ExtractFileName(Files);
    FtpClient1.LocalFileName := tempFTPPath + '\' + ExtractFileName(Files);
    if not FtpClient1.Connect then
    begin
        FtpClient1.Abort;
        Result := False;
        Exit;
    end;    if not FtpClient1.put then
    begin
        FtpClient1.Abort;
        Result := False;
        Exit;
    end;
    if not FtpClient1.Quit then
        FtpClient1.Abort;
    Result := True;