TIdHTTP abrir conexion ssl

[Osorio]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  params: TStrings;
  respuesta,temp1,temp2,temp3,comi:string;
   v1:Integer;
    IdSSLIOHandlerSocketOpenSSL17: TIdSSLIOHandlerSocketOpenSSL;
begin


            IdSSLIOHandlerSocketOpenSSL17:= TIdSSLIOHandlerSocketOpenSSL.Create;


  http := TIdHTTP.Create(Self);
  http.IOHandler:=IdSSLIOHandlerSocketOpenSSL17;

  params := TStringList.Create;
  comi:='''';
  try
    respuesta := http.Post('https://secure.etecsa.net:8443', params);
    resultadopaso1:=respuesta;
  //    resultadopaso1:=Memo2.Text;
  finally
    http.Free;
    params.Free;
  end;
end;