Fórum Arquivos corrompendo no envio via FTP delphi xe7 #591531

function TfPrincipal.EnviarFtp: boolean;
var
  ftp: TIdFTP;
  ret : boolean;
  arq : file of Byte;
  arqtam: Longint;
  I : integer;
begin
 ret := false;
 try
  I := 1;
  WHILE I < 3 DO BEGIN
  ftp := TidFTP.Create(nil);
  ftp.Host := HostFtp;
  ftp.Username := UsuarioFtp;
  ftp.password := SenhaFfp;
  ftp.Passive :=  Passivoftp=''''''''''''''''PASSIVO'''''''''''''''';
  ftp.Connect;
  ftp.ChangeDir(''''''''''''''''/'''''''''''''''');
  ftp.ChangeDir(Pastaftp);
  Application.ProcessMessages;
  ftp.Put(ArquivoDestino+''''''''''''''''.zip'''''''''''''''',ArquivoDestinoSemPasta+''''''''''''''''.zip''''''''''''''''); //upload .sql
  Application.ProcessMessages;
  ftp.Put(ArquivoDestino+''''''''''''''''_rels.rar'''''''''''''''',ArquivoDestinoSemPasta+''''''''''''''''_rels.rar''''''''''''''''); //upload .rar
  Application.ProcessMessages;
  ret := true;
  I := I + 1;
  END;
 except
   ret := false;
 end;
  ftp.Quit;
  ftp.Disconnect;
  Result := ret;
end;