оптимизации

utils/uWebServerEvents.pas

@@ -52,7 +52,7 @@ end;
 
 destructor TTTW_Events.Destroy;
 begin
-  FCriticalSection.Free;
+  FreeAndNil(FCriticalSection);
   FMessages.Free;
   fFontsList.Free;
   IdHTTPServer1.Free;
@@ -180,6 +180,8 @@ var
 begin
   JSONArray := TJSONArray.Create;
   try
+  CleanupOldMessages;
+
     FCriticalSection.Enter;
     try
       for I := 0 to FMessages.Count - 1 do