Extract helpers into BoardUtils, WisdomBuilder, UISync, PlatformUtils

- BoardUtils: BoardTypeName (removes duplication with DeviceForm)
- WisdomBuilder: TWisdomBuildThread + TWisdomProgressDialog
- UISync: TDeviceFoundSync/TStatusUISync/TDDCSeqSync via callbacks
  (avoids circular dependency, removes TObject casts)
- PlatformUtils: HasOpenGLSpectrumSwitch + CurrentScreenDPI

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

DeviceForm.pas

@@ -6,10 +6,8 @@ interface
 
 uses
   Classes, SysUtils, FlatButton, FlatEdit, FlatListBox, AppTheme, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, ExtCtrls, ComCtrls, IniFiles;
-
-// Декодирование типа платы (совпадает с MainForm.BoardTypeName)
-function BoardTypeName(BoardType: Integer): string;
+  StdCtrls, ExtCtrls, ComCtrls, IniFiles,
+  BoardUtils;
 
 const
   DEVICE_CFG_FILE = 'hpsdr_devices.ini';
@@ -114,20 +112,6 @@ type
 
 implementation
 
-function BoardTypeName(BoardType: Integer): string;
-begin
-  case BoardType of
-    1:  Result := 'HERMES (ANAN-10/100)';
-    2:  Result := 'HERMES-E (ANAN-10E/100B)';
-    3:  Result := 'ANGELIA (ANAN-100D)';
-    4:  Result := 'ORION (ANAN-200D)';
-    5:  Result := 'ORION MkII (ANAN-7000/8000)';
-    6:  Result := 'HERMES-LITE 2';
-    10: Result := 'SATURN (G2)';
-    else Result := Format('Unknown Board #%d', [BoardType]);
-  end;
-end;
-
 const
   CLR_BG      = TColor($00121212);
   CLR_PANEL   = TColor($001A1A1A);