[Vayrus]

Приветсвую, ребята помогите доделать код ниже для того, чтобы мне не приходилось создавать новые файлы, а дописывать данные к существующему:

Код:

uses
WinInet;
 
function Upload(Serv, Login, Pas, InFN, {OutFN, } Folder: string): Boolean;
var
  InetHandle, FtpHandle: HInternet;
begin
  RESULT := FALSE;
  InetHandle := InternetOpen(PChar('FTP'), //nil или Microsoft Internet Explorer
    0, //INTERNET_OPEN_TYPE_PRECONFIG !!!!! INTERNET_OPEN_TYPE_DIRECT
    nil, nil, 0);
  FtpHandle := InternetConnect(InetHandle, PChar(Serv), 21, //INTERNET_DEFAULT_FTP_PORT
    PChar(Login), PChar(Pas), INTERNET_SERVICE_FTP, 0, //INTERNET_FLAG_PASSIVE,
    255); //0
  Sleep(100);
  if FtpHandle <> nil then
  begin
//
    if not FtpSetCurrentDirectory(FtpHandle, PChar(Folder)) then
    begin
      if FtpCreateDirectory(FtpHandle, PChar(Folder)) then
        FtpSetCurrentDirectory(FtpHandle, PChar(Folder));
    end;
//
    try
      FtpPutFile(FtpHandle, PChar(InFN), PChar({OutFN} IntToStr(RandomInteger(6)) + '_' + RandomString(6)), FTP_TRANSFER_TYPE_BINARY, //FTP_TRANSFER_TYPE_UNKNOWN
        255); //0
      InternetCloseHandle(FtpHandle);
      RESULT := TRUE;
    except
    end;
  end;
  InternetCloseHandle(InetHandle);
end;