fix cpu

WebUtils.pas

@@ -6,7 +6,6 @@ unit WebUtils;
     - SHA-1 (минимальная реализация для WebSocket handshake)
     - Base64 (кодирование)
     - JSON helpers (JsonGetStr, JsonGetFloat, JsonGetInt, JsonGetBool)
-    - AudioLog (отладочное логирование аудио)
 
   ИСПРАВЛЕНИЯ:
     - (Windows build fix) Порядок uses: стандартные RTL-юниты первыми,
@@ -76,10 +75,6 @@ function JsonGetFloat(const Json, Key: string; Def: Double): Double;
 function JsonGetInt(const Json, Key: string; Def: Integer): Integer;
 function JsonGetBool(const Json, Key: string; Def: Boolean): Boolean;
 
-{ ── Отладочное логирование аудио ─────────────────────────────────────────── }
-
-procedure AudioLog(const S: string);
-
 implementation
 
 { ═══════════════════════════════════════════════════════════════════════════
@@ -318,20 +313,4 @@ begin
   else           Result := (S = 'true') or (S = '1');
 end;
 
-{ ═══════════════════════════════════════════════════════════════════════════
-  Отладочное логирование аудио
-  ═══════════════════════════════════════════════════════════════════════════ }
-
-procedure AudioLog(const S: string);
-var F: TextFile;
-begin
-  try
-    AssignFile(F, 'audio_debug.log');
-    if FileExists('audio_debug.log') then Append(F) else Rewrite(F);
-    WriteLn(F, FormatDateTime('hh:nn:ss.zzz', Now) + ' ' + S);
-    CloseFile(F);
-  except
-  end;
-end;
-
 end.