[gdlrinfo]

Estimados buen día tengo el programa que voy a dejar a continuación que lo utilizo para bajar archivos que se actualizan en un servidor el tema es que lo van a convertir en un servidor Seguro mi pregunta es como utilizar los servidores seguros con INdy hice algunas pruebas con sus componentes y no conecta por el momento dejo lo que uso para bajar de los servidores normalmente muchas gracias como siempre

Código Delphi [-]
Var
  FTP: TIdFTP;
  lista:TStringList;
  A,I:integer;
  SSl:TIdSSLIOHandlerSocketOpenSSL;
begin
  FTP := TIdFTP.Create( nil );
  FTP.OnWork := form1.IdFTPWork;
  FTP.Username := Usuario;
  FTP.Password := Pss;
  FTP.Host := ftph;
  A:=0;
   try
    FTP.Connect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;
  //ProgressBar.max := FTP.Size(Lista.Strings[i]) div 1024;
  sigefa.ProgressBar.max := 100;
  if FTP.Connected then
     Begin
//   showMessage('EstoyConectado a:'+ftp.Host);
   FTP.ChangeDir(dir);
   Lista := TStringList.create;
   FTP.List(Lista,'*.*',false);
    try
      for i := 0 to Lista.Count - 1 do
      begin
          if NOT FileExists('C:\45'+ Lista.Strings[i]) then
           Begin
           form1.Label3.Caption:= Lista.Strings[i];
           form1.Label3.Refresh;
           FTP.Get(Lista.Strings[i], 'C:\45' + Lista.Strings[i], true);
           A:=a+1;
           form1.ProgressBar.Position:=100;
           form1.Refresh;
           End;
      end;
    finally
      FTP.Disconnect;
      FTP.Free;
      Lista.Free;
    end;
    form1.ProgressBar.Position:=0;
    form1.Label3.Caption:='....';
    form1.Memo1.Lines.Add(FormatDateTime('hh:nn:ss', Now())+': Archivos de '+dir+' Descargados desde '+ftph+' Cantidad Total: '+InttoStr(A));
   End
  else
  BEGIN
      showmessage('No estoy conectado a:'+ftp.Host);
  END;