anchor.diff:  begin
     inherited;
     FServer:=TIdHTTPWebBrokerBridge.Create(nil);
  +  FServer.OnQuerySSLPort:=OnHTTPQuerySSLPort;
   end;
   
   destructor TWebServer.Destroy;
  
positive.code:   Classes,
    SysUtils,
    IdSSLOpenSSL,
    IdSSL,
    IdHTTPWebBrokerBridge;
  
  
negative.code:   Password:=fSSLPrivateKeyPassword;
  end;
  
  procedure TWebServer.OnHTTPQuerySSLPort(APort: TIdPort; var VUseSSL: Boolean);
  begin
    VUseSSL:=fSSLEnabled;
  end;
  
  procedure TWebServer.StartServer(APort: Integer; ASSLPrivateKeyFile, ASSLPrivateKeyPassword, ASSLCertFile: String);
  var
    lHandler: TIdServerIOHandlerSSLOpenSSL;
  begin
    if FServer.Active and (FServer.DefaultPort<>APort) then StopServer;
  
    fSSLEnabled:=(ASSLPrivateKeyFile<>'') and (ASSLCertFile<>'');
    if not FServer.Active then
    begin
      if fSSLEnabled then
      begin
        lHandler:=TIdServerIOHandlerSSLOpenSSL.Create;
        lHandler.SSLOptions.Method := sslvSSLv23;
  