Fórum Erro no envio de arquivos via FTP delphi xe7 #591530

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;