Form.Width in cm anzeigen lassen ?

[thomas2009]

Hallo

mein Form ist hat folgende Eigenschaften
Breite: 640 pixel
PixelsPerInch= 96
Nun möchte ich die Breite in cm in Edit1 anzeigen lassen :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Trunc(Form1.width*Form1.PixelsPerInch / (25.4*100)));
end;

Ich erhalte aber 23 cm und nicht 20 !

[edit=SirThornberry]Titel korrogiert - nächstes mal bitte die Zeit nehmen wenigstens einmal kurz drüber zu schauen was du schreibst Mfg, SirThornberry[/edit]