function TWinInetFTP.Put(Source, Dest, FileName: string; CreateFolder: boolean): boolean;
var FileStream: TFileStream;
begin
 Result := false;
 if FileName = '' then FileName := ExtractFileName(Source);
 try
   FileStream := TFileStream.Create(Source, fmOpenRead, 0);
   try
     Result := Put(FileStream, Dest, FileName, CreateFolder)
   finally
     FileStream.Free
   end
 except
   SetError('Put', 'File stream read error', GetLastError)
 end
end;

function TWinInetFTP.Put(Stream: TStream; Dest, FileName: string;
 CreateFolder: boolean): boolean;
var
 TotalBytesWrite, BytesToWrite, BytesWrite: dword;
 buf: array of char;
begin
 Result    := false;
 Terminate := false;
 BytesWrite      := 0;
 TotalBytesWrite := 0;
 Stream.Position := 0;
 // здесь создание директории если это необходимо
 if Dest[1] <> '/' then Dest := '/' + Dest;
 if Dest[Length(Dest)] <> '/' then Dest := Dest + '/';
 if not SetCurDir(Dest) then
   if not CreateFolder then
     begin
     SetError('Put', 'SetCurDir', GetLastError);
     Exit
     end
   else if not MakeDir(Dest) then Exit;
 // дальше собсно действия для выгрузки файла
 hFile := FtpOpenFile(hConnect, PChar(FileName), GENERIC_WRITE, 0, 0);
 if not Assigned(hFile) then
   SetError('Put', 'FtpOpenFile', GetLastError)
 else
   try
     SetLength(buf, BufferSize - 1);
     with Stream do
     repeat
       Application.ProcessMessages;
       if Terminate then Exit;
       Seek(TotalBytesWrite, soFromBeginning);
       BytesToWrite := BufferSize;
       if BytesToWrite > Size - Position then BytesToWrite := Size - Position;
       ReadBuffer(buf[0], BytesToWrite);
       if not InternetWriteFile(hFile, @buf[0], BytesToWrite, BytesWrite)
       then
         begin
         SetError('Put', 'InternetWriteFile', GetLastError);
         Break
         end;
       TotalBytesWrite := TotalBytesWrite + BytesWrite;
       if Assigned(FOnTransferEvent) then FOnTransferEvent(Self, Stream.Position)
     until Position = Size;
     Stream.Position := 0;
     Result := true
   finally
     buf := nil;
     MainForm.RichEdit.Lines.Append('Перед InternetCloseHandle');
     if not InternetCloseHandle(hFile) then {error} ;
     { на InternetCloseHandle виснет, то есть управление уже не возвращает }
     MainForm.RichEdit.Lines.Append('После InternetCloseHandle')
   end;
 MainForm.RichEdit.Lines.Append('Выход из процедуры \"Put (Stream)\"')
end;