Envio de arquivos via FTP delphi xe7

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;