Conectarse a un servidor ssl

[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;

[Neftali [Germán.Estévez]]

¿Qué versión de las Indy estás utilizando?

Lo digo por lo que pone aquí.

Textual:
"In Indy 8.0 and Indy 9.0, you can not do this."
"In Indy 10, both the FTP client and server both already supports SSL."

De todas formas, revisa bien ese documento porque habla de otras opciones, o en todo caso, siempre puedes actualizar a la v10.

[gdlrinfo]

Empezado por Neftali

¿Qué versión de las Indy estás utilizando?

Lo digo por lo quepone aquí.

Textual:
"In Indy 8.0 and Indy 9.0, you can not do this."
"In Indy 10, both the FTP client and server both already supports SSL."

De todas formas, revisa bien ese documento porque habla de otras opciones, o en todo caso, siempre puedes actualizar a la v10.

Buenasssss Gracias por responder y perdón la demora uso la indy 10 pero no se como implementarlo he intentado pero no me funciona.-

Atte.- Saludos