procedure RunServer;
begin
  WriteLog(Format('Starting HTTPS Server or port %d', [APort]),0);
  LServer := TIdHTTPWebBrokerBridge.Create(nil);
  try
    LServer.DefaultPort := APort;
    LServer.Active := True;
    Writeln('Press ESC to stop the server');

    WriteLog('Creating DataModule',0);
    DM:= TDM.Create(nil);
    DM.FIB.DBName:=DBName+':'+DBPath;
    DM.FIB.Open(false);
    case DM.FIB.Connected of
      true: WriteLog('Подключение к базе данных - OK',0);
     false: WriteLog('Подключение к базе данных - ошибка',0);
    end;

    LHandle := GetStdHandle(STD_INPUT_HANDLE);
    while True do
    begin
      Win32Check(ReadConsoleInput(LHandle, LInputRecord, 1, LEvent));
      if (LInputRecord.EventType = KEY_EVENT) and
      LInputRecord.Event.KeyEvent.bKeyDown and
      (LInputRecord.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE) then
        break;
    end;
  finally
    if DM.FIB.Connected then DM.FIB.CloseDataSets;
    LServer.Free;
    LGetSSLPassword.Free;
  end;
end;

begin
  try
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := WebModuleClass;
    RunServer;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end