Du könntest auch versuchen SetProcessDPIAware(0 {PROCESS_DPI_UNAWARE}) aus der
Unit Winapi.ShellScaling aufzurufen.
Das sollte dann auch möglichts im initialization gemacht werden.
Die
Unit Winapi.ShellScaling wird es mit D6 nicht geben, aber die könntest du dafür aus deinem aktuellen Delphi kopieren.
Ich selber nutze SetProcessDPIAware auch, da der Kunden dann testen kann, was im ab besten gefällt.
Aber ob man das mehrfach mit anderen Werten setzen kann habe ich nicht probiert.