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;
finally
http.Free;
params.Free;
end;
end;