anchor.diff:    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 (ASSLPrivateKeyFile<>'') and (ASSLPrivateKeyPassword<>'') and (ASSLCertFile<>'') then
  +    if fSSLEnabled then
       begin
         lHandler:=TIdServerIOHandlerSSLOpenSSL.Create;
         lHandler.SSLOptions.Method := sslvSSLv23;
  
positive.code: begin
    inherited;
    FServer:=TIdHTTPWebBrokerBridge.Create(nil);
  end;
  
  destructor TWebServer.Destroy;
  
negative.code:   Classes,
    SysUtils,
    IdSSLOpenSSL,
    IdGlobal,
    IdSSL,
    IdHTTPWebBrokerBridge;
  
  