Pixel in Millimiter umrechnen mit dieser Funktion ?

[thomas2009]

Es klappt nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var X, Y: Single;
begin
PixelsPerMM(Canvas, X, Y);
Edit3.Text  := IntToStr(StrToInt(Edit1.Text) / X);
Edit4.Text  := IntToStr(StrToInt(Edit2.Text) /Y);

end;