Hallo,
ich werf' dann mal das in's Rennen :
Code:
type
fScreenMM = array[0..1] of Real;
.
.
.
function ScreenMM : fScreenMM;
begin
Result[0] := Screen.Width / Screen.PixelsPerInch * 25.4;
Result[1] := Screen.Height / Screen.PixelsPerInch * 25.4;
end;