оптимизации

forms/uGeneral.pas

@@ -272,7 +272,7 @@ begin
       frSettings1.edtBotClientID.text, rid);
 
     // Назначение обработчиков событий
-    // ttw_ES.OnMessage := fRewards.ESOnMessage;
+    ttw_ES.OnLog := toLog;
     ttw_ES.OnError := ESError;
     ttw_ES.OnGetCustomReward := frEvents1.ESOnGetCustomReward;
     ttw_ES.OnStatus := ESStatus;
@@ -513,23 +513,25 @@ end;
 
 procedure TTTW_Bot.FormDestroy(Sender: TObject);
 begin
-  frOBS1.ChatBadges.Free;
-  frOBS1.ChatEmotes.Free;
-  frOBS1.ChatWebServers.Free;
-  frOBS1.EventWebServers.Free;
-  frOBS1.KandinskyWebServers.Free;
-  frRevards1.CustomRewards.Free;
+   FreeAndNil(frOBS1.ChatBadges);
+  FreeAndNil(frOBS1.ChatEmotes);
+  FreeAndNil(frOBS1.ChatWebServers);
+FreeAndNil(frOBS1.EventWebServers);
+FreeAndNil(frOBS1.KandinskyWebServers);
+FreeAndNil(frRevards1.CustomRewards);
+
+  frOBS1.BTTV.Free;
+  frOBS1.m7tv.Free;
+  userlist.Free;
   kePoints.Free;
+
   DisconnectProcedure;
-  if Assigned(ttw_IRS) then
-    ttw_IRS.Free;
-  if Assigned(ttw_ES) then
-    ttw_ES.Free;
+  FreeAndNil(ttw_IRS);
+  FreeAndNil(ttw_ES);
+  FreeAndNil(ttw_API);
   if Assigned(Kandinsky) then
     Kandinsky.Free;
-  if Assigned(ttw_API) then
-    ttw_API.Free;
-  frSettings1.Destroy;
+  //frSettings1.Destroy;
   FreeAndNil(db);
   FreeAndNil(frAutoActions1.FTimerList);
   FreeAndNil(frLog1.FLogList);