TImage größe in cm angeben

[Sharky]

Hai,
ich stehe etwas auf dem Schlauch Ich möchte die Größe eine TImage in cm angeben.
Wenn ich das so mache

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
 inch = 2.54;
var
  ppi : Integer;
begin
  ppi := Screen.PixelsPerInch;
  Image1.Width := Round (ppi * 13 / inch);  // 13 cm breit
  Image1.Height := Round (ppi * 10 / inch); // 10 cm hoch
end;

geht es auch sollange ich meine Auflösung von 1280x1024 eingestellt habe. Wenn ich diese aber ändere simmt die größe nicht mehr.

Hat jemand einen kleinen Tipp für mich?