......

    IdHTTPProxyServer1.DefaultPort:= 8080;

    IdHTTPProxyServer1.Active := true;

.......

 

procedure TForm1.IdHTTPProxyServer1HTTPBeforeCommand(AContext: TIdHTTPProxyServerContext);

var SSLClienteOut : TIdSSLIOHandlerSocketOpenSSL;

begin

 

    if  TIdTCPClient(AContext.OutboundClient).Port=443  then

    begin      

        AContext.OutboundClient.IOHandler    :=   TIdSSLIOHandlerSocketOpenSSL.Create(AContext.OutboundClient);

        AContext.OutboundClient.IOHandler.ReadTimeout:=5000;   {}

        SSLClienteOut := TIdSSLIOHandlerSocketOpenSSL(AContext.OutboundClient.IOHandler);

 

        SSLClienteOut.SSLOptions.Method      := sslvSSLv23;//  (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)

        SSLClienteOut.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1];

        SSLClienteOut.SSLOptions.Mode        := sslmBoth; //(sslmUnassigned, sslmClient, sslmServer, sslmBoth);

        SSLClienteOut.SSLOptions.VerifyMode  := [];

        SSLClienteOut.PassThrough            := True;

   end;

 

end;