оптимизации

utils/uPlayerThread.pas

@@ -60,7 +60,7 @@ begin
   finally
     FQueueCS.Leave;
   end;
-  FQueueCS.Free;
+  FreeAndNil(FQueueCS);
 
   inherited;
 end;

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

utils/uWebServerKandinsky.pas

@@ -67,7 +67,7 @@ end;
 destructor TKandinsky_Web.Destroy;
 begin
  IdHTTPServer1.Active := False;
-  FCriticalSection.Free;
+  FreeAndNil(FCriticalSection);
   CleanupOldMessages;
 end;