оптимизон от нейронки, доделал автоматические действия, добавил глобальный лог, сделал реконекты к ДА

TTW_Bot_app.dpr

@@ -1,42 +1,49 @@
 program TTW_Bot_app;
 
 uses
-  System.StartUpCopy,
+  System.StartUpCopy, SysUtils,
   FMX.Forms,
-  uGeneral in 'uGeneral.pas' {TTW_Bot},
-  fSettings in 'fSettings.pas' {frSettings: TFrame},
-  fAI in 'fAI.pas' {frAI: TFrame},
-  fNotify in 'fNotify.pas' {frNotify: TFrame},
-  fAutoActions in 'fAutoActions.pas' {frAutoActions: TFrame},
-  fOBS in 'fOBS.pas' {frOBS: TFrame},
-  fLog in 'fLog.pas' {frLog: TFrame},
+  uGeneral in 'uGeneral.pas' {TTW_Bot} ,
+  fSettings in 'fSettings.pas' {frSettings: TFrame} ,
+  fAI in 'fAI.pas' {frAI: TFrame} ,
+  fNotify in 'fNotify.pas' {frNotify: TFrame} ,
+  fAutoActions in 'fAutoActions.pas' {frAutoActions: TFrame} ,
+  fOBS in 'fOBS.pas' {frOBS: TFrame} ,
+  fLog in 'fLog.pas' {frLog: TFrame} ,
   uRecords in 'uRecords.pas',
-  fCommands in 'fCommands.pas' {frCommands: TFrame},
+  fCommands in 'fCommands.pas' {frCommands: TFrame} ,
   uDataBase in 'uDataBase.pas',
-  fColorSettings in 'fColorSettings.pas' {frColorSettings: TFrame},
-  uCreateChat in 'uCreateChat.pas' {fCreateChat},
-  fFontSettings in 'fFontSettings.pas' {frFontSettings: TFrame},
-  uCreateNotify in 'uCreateNotify.pas' {fCreateNotify},
+  fColorSettings in 'fColorSettings.pas' {frColorSettings: TFrame} ,
+  uCreateChat in 'uCreateChat.pas' {fCreateChat} ,
+  fFontSettings in 'fFontSettings.pas' {frFontSettings: TFrame} ,
+  uCreateNotify in 'uCreateNotify.pas' {fCreateNotify} ,
   uTWAuth in 'uTWAuth.pas',
   uTTWAPI in 'uTTWAPI.pas',
   uAPIDA in 'uAPIDA.pas',
-  uShowText in 'uShowText.pas' {fShowText},
+  uShowText in 'uShowText.pas' {fShowText} ,
   uWSDA in 'uWSDA.pas',
-  uQ in 'uQ.pas' {frmQ},
-  fSimpleGrid in 'fSimpleGrid.pas' {frSimpleGrid: TFrame},
-  fContruct in 'fContruct.pas' {frContruct: TFrame},
-  fGroupsRequest in 'fGroupsRequest.pas' {frGroupsRequest: TFrame},
+  uQ in 'uQ.pas' {frmQ} ,
+  fSimpleGrid in 'fSimpleGrid.pas' {frSimpleGrid: TFrame} ,
+  fContruct in 'fContruct.pas' {frContruct: TFrame} ,
+  fGroupsRequest in 'fGroupsRequest.pas' {frGroupsRequest: TFrame} ,
   uMyTimer in 'uMyTimer.pas',
   uRegExpr in 'uRegExpr.pas';
 
 {$R *.res}
 
 begin
+
+{$IFDEF DEBUG}
+  ReportMemoryLeaksOnShutdown := True;
+{$ENDIF}
   Application.Initialize;
+
   Application.CreateForm(TTTW_Bot, TTW_Bot);
+  Application.OnException := TTW_Bot.GlobalExceptionHandler;
   Application.CreateForm(TfCreateChat, fCreateChat);
   Application.CreateForm(TfCreateNotify, fCreateNotify);
   Application.CreateForm(TfShowText, fShowText);
   Application.CreateForm(TfrmQ, frmQ);
   Application.Run;
+
 end.