Bildschirm-Groesse in mm auslesen

[thomas2009]

Wie rufe ich die Funktion auf ?

Delphi-Quellcode:

var
Form1: TForm;
x,y : Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=Screen.width;
y:=Screen.Height;

GetDisplaySize(x,y);
caption:=IntToStr(x);
end;

Ich erhalte -1