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>

BoardUtils.pas

@@ -0,0 +1,29 @@
+unit BoardUtils;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+interface
+
+function BoardTypeName(BoardType: Integer): string;
+
+implementation
+
+uses SysUtils;
+
+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;
+
+end.