Phase 3 (WA2a): move WebOnMic into the web adapter

WebOnMic only feeds TX mic samples to the controller's WDSP engine
(no UI, thread-safe like the other engine data callbacks), so it moves
verbatim into TWebAdapter.OnMic. FWebServer.OnWebMic now points there.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

MainForm.pas

@@ -445,7 +445,6 @@ type
     procedure WebOnRun(On_: Boolean);
     procedure WebOnDrive(V: Integer);
     procedure WebOnFreqA(Hz: Double);
-    procedure WebOnMic(Samples: PSingle; Count: Integer);
     procedure WebOnXvtrBand(Idx: Integer);
     // Discovery / connect / saved-CRUD из web (маршалятся в UI)
     procedure WebOnConnect(const IP: string);
@@ -982,7 +981,7 @@ begin
   FWebServer.OnRun    := WebOnRun;
   FWebServer.OnDrive     := WebOnDrive;
   FWebServer.OnFreqA     := WebOnFreqA;
-  FWebServer.OnWebMic    := WebOnMic;
+  FWebServer.OnWebMic    := FWebAdapter.OnMic;
   FWebServer.OnXvtrBand  := WebOnXvtrBand;
   FWebServer.OnConnect       := WebOnConnect;
   FWebServer.OnDiscoverDev   := WebOnDiscover;
@@ -5252,24 +5251,6 @@ begin
   ApplyVfoA(Round(FWebSyncFreq));
 end;
 
-procedure TMainForm.WebOnMic(Samples: PSingle; Count: Integer);
-var
-  Buf: array[0..5759] of Double;
-  SP:  PSingle;
-  i, n: Integer;
-begin
-  if not FController.FWDSPReady then Exit;
-  n := Count;
-  if n > Length(Buf) then n := Length(Buf);
-  SP := Samples;
-  for i := 0 to n - 1 do
-  begin
-    Buf[i] := SP^;
-    Inc(SP);
-  end;
-  FController.FDSPEngine.PushTXMicSamplesD(Buf, n);
-end;
-
 procedure TMainForm.TrkDriveChange(Sender: TObject);
 begin
   FController.FDrivePercent := TrkDrive.Position;  // слайдер — ввод; контроллер — истина