anchor.diff:    private
       FServer: TIdHTTPWebBrokerBridge;
       fSSLPrivateKeyPassword: String;
  +    fSSLEnabled: Boolean;
       procedure TerminateThreads;
       function getActive: Boolean;
       function getPort: Integer;
       procedure GetSSLPassWord(var Password: String);
  +    procedure OnHTTPQuerySSLPort(APort: TIdPort; var VUseSSL: Boolean);
       function getSecure: Boolean;
     public
       constructor Create;
  
positive.code:   Password:=fSSLPrivateKeyPassword;
  end;
  
  procedure TWebServer.StartServer(APort: Integer; ASSLPrivateKeyFile, ASSLPrivateKeyPassword, ASSLCertFile: String);
  var
    lHandler: TIdServerIOHandlerSSLOpenSSL;
  begin
    if FServer.Active and (FServer.DefaultPort<>APort) then StopServer;
  
    if not FServer.Active then
    begin
      if (ASSLPrivateKeyFile<>'') and (ASSLPrivateKeyPassword<>'') and (ASSLCertFile<>'') then
      begin
        lHandler:=TIdServerIOHandlerSSLOpenSSL.Create;
        lHandler.SSLOptions.Method := sslvSSLv23;
  
negative.code: begin
    inherited;
    FServer:=TIdHTTPWebBrokerBridge.Create(nil);
    FServer.OnQuerySSLPort:=OnHTTPQuerySSLPort;
  end;
  
  destructor TWebServer.Destroy;
  