Habs gefunden.
Ich muss neben Size auch noch Scale abfragen mit:
Delphi-Quellcode:
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSvc)) then begin
Size := ScreenSvc.GetScreenSize;
Scale := ScreenSvc.GetScreenScale;
end;
und dann sollte es passen.