wip(audio): выбор устройства ВВОДА на каждом слайсе + вкладки OUT/IN в AUD

Паритет с уже существующим выбором вывода: на каждом слайсе своё устройство
входа (микрофон/виртуальный кабель).

- RadioController: TCtrlSlice += InDeviceIndex/InDevName/AudioIn (ссылка, не
  владение); mic-пул FMicPool с refcount (Acquire/ReleaseMicInput) — один
  открытый TAudioInput на уникальное PA-устройство, смена TX-слайса не
  переоткрывает поток; ActiveMicInput/ActiveMicInDevName для PullSoundCardMic,
  Flush и DefaultMicSource; SetMainMicDevice перепривязывает ссылки слайсов.
- VfoOverlay: во fly-out AUD ряд вкладок OUT | IN, событие OnAudioInDevice.
- PanafallPanel: проброс списка входных устройств во флаги слайсов и главный.
- Settings: персист in_dev_name.

НЕ ГОТОВО: зависание GUI при выборе на слайсе того же входа, что в настройках
(пул открывает поток вместо шортката на общий FAudioIn). В коде оставлена
временная диагностика [MIC] в stderr. Также подозрение на замедление потока
данных от радио — проверяем сравнением с main.

Со мной в коммите временные тестовые программы PortAudio (other/pa*.lpr).

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

Settings.pas

@@ -122,7 +122,8 @@ type
     RxMuteOnTx: Boolean;  // True = слайс молчит на передаче (self-monitor выкл)
     FMSQOn:    Boolean;
     FMSQLevel: Integer;
-    DevName:   string;    // имя PortAudio-устройства ('' = default)
+    DevName:   string;    // имя PortAudio-устройства вывода ('' = default)
+    InDevName: string;    // имя устройства ВВОДА слайса ('' = общий вход)
   end;
 
   TPanCfg = record
@@ -1972,6 +1973,7 @@ begin
       SliceObj.Add('fmsq_on',    P.Pans[i].Slices[j].FMSQOn);
       SliceObj.Add('fmsq_level', P.Pans[i].Slices[j].FMSQLevel);
       SliceObj.Add('dev_name',   P.Pans[i].Slices[j].DevName);
+      SliceObj.Add('in_dev_name', P.Pans[i].Slices[j].InDevName);
     end;
   end;
 end;
@@ -2051,6 +2053,7 @@ begin
       P.Pans[id].Slices[n].FMSQOn    := JB(SliceObj, 'fmsq_on', False);
       P.Pans[id].Slices[n].FMSQLevel := JI(SliceObj, 'fmsq_level', 30);
       P.Pans[id].Slices[n].DevName   := JS(SliceObj, 'dev_name', '');
+      P.Pans[id].Slices[n].InDevName := JS(SliceObj, 'in_dev_name', '');
     end;
   end;
 end;