program TTW_Bot_app;

uses
  System.StartUpCopy,
  SysUtils,
  FMX.Forms,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  fAI in 'frames\fAI.pas' {frAI: TFrame},
  fAutoActions in 'frames\fAutoActions.pas' {frAutoActions: TFrame},
  fColorSettings in 'frames\fColorSettings.pas' {frColorSettings: TFrame},
  fCommands in 'frames\fCommands.pas' {frCommands: TFrame},
  fContruct in 'frames\fContruct.pas' {frContruct: TFrame},
  fFontSettings in 'frames\fFontSettings.pas' {frFontSettings: TFrame},
  fGroupsRequest in 'frames\fGroupsRequest.pas' {frGroupsRequest: TFrame},
  fLog in 'frames\fLog.pas' {frLog: TFrame},
  fNotify in 'frames\fNotify.pas' {frNotify: TFrame},
  fOBS in 'frames\fOBS.pas' {frOBS: TFrame},
  fSettings in 'frames\fSettings.pas' {frSettings: TFrame},
  fSimpleGrid in 'frames\fSimpleGrid.pas' {frSimpleGrid: TFrame},
  fTTS in 'frames\fTTS.pas' {frTTS: TFrame},
  uCreateChat in 'forms\uCreateChat.pas' {fCreateChat},
  uCreateNotify in 'forms\uCreateNotify.pas' {fCreateNotify},
  uGeneral in 'forms\uGeneral.pas' {TTW_Bot},
  uQ in 'forms\uQ.pas' {frmQ},
  uShowText in 'forms\uShowText.pas' {fShowText},
  uAPIDA in 'Services\uAPIDA.pas',
  uChatAPI in 'Services\uChatAPI.pas',
  uCustomEmoties in 'Services\uCustomEmoties.pas',
  uGigaChat in 'Services\uGigaChat.pas',
  uKandinskyAPI in 'Services\uKandinskyAPI.pas',
  uTTWAPI in 'Services\uTTWAPI.pas',
  uTTWEventSub in 'Services\uTTWEventSub.pas',
  uTTWIRC in 'Services\uTTWIRC.pas',
  uTWAuth in 'Services\uTWAuth.pas',
  uWSDA in 'Services\uWSDA.pas',
  uDataBase in 'utils\uDataBase.pas',
  uMyTimer in 'utils\uMyTimer.pas',
  uOBS_Doc_Player in 'utils\uOBS_Doc_Player.pas' {OBS_Doc_Player: TWebModule},
  uRecords in 'utils\uRecords.pas',
  uRegExpr in 'utils\uRegExpr.pas',
  uSoundManager in 'utils\uSoundManager.pas',
  uTTS in 'utils\uTTS.pas',
  fPlayerWeb in 'frames\fPlayerWeb.pas' {frPlayerWeb: TFrame},
  uPlayerThread in 'utils\uPlayerThread.pas',
  uWebServerChat in 'utils\uWebServerChat.pas',
  uWebServerKandinsky in 'utils\uWebServerKandinsky.pas',
  uWebServerEvents in 'utils\uWebServerEvents.pas',
  fEvents in 'frames\fEvents.pas' {frEvents: TFrame},
  uKeyEvent in 'utils\uKeyEvent.pas',
  fRevards in 'frames\fRevards.pas' {frRevards: TFrame};

{$R *.res}

begin

{$IFDEF DEBUG}
  ReportMemoryLeaksOnShutdown := True;
{$ENDIF}
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := OBS_Doc_Player;

  Application.Initialize;
  Application.CreateForm(TTTW_Bot, TTW_Bot);
  Application.OnException := TTW_Bot.GlobalExceptionHandler;
  Application.CreateForm(TfCreateChat, fCreateChat);
  Application.CreateForm(TfCreateNotify, fCreateNotify);
  Application.CreateForm(TfrmQ, frmQ);
  Application.CreateForm(TfShowText, fShowText);
  Application.CreateForm(TOBS_Doc_Player, OBS_Doc_Player);
  Application.CreateForm(TfCreateChat, fCreateChat);
  Application.CreateForm(TfCreateNotify, fCreateNotify);
  Application.CreateForm(TfShowText, fShowText);
  Application.CreateForm(TfrmQ, frmQ);
  Application.Run;

end.
