Wie kann ich die angezeigte Größe des Images ermitteln?

[Bummi]

Delphi-Quellcode:

Procedure GetFittingHW(OuterW,OuterH:Integer;var InnerW,InnerH:Integer);
var
 vh:Double;
begin
    Assert((OuterW<>0) and (OuterH<>0),'Division durch 0');

    if (InnerW /OuterW) < (InnerH /OuterH) then vh := (InnerH /OuterH)
    else vh := (InnerW /OuterW);

    Assert((vh<>0) ,'Division durch 0');

    InnerW := Round(InnerW/vh);
    InnerH := Round(InnerH/vh);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
 w,h:Integer;
begin
  w := image1.Picture.Width;
  h := image1.Picture.Height;
  GetFittingHW(Image1.Width,image1.Height,w,h);
  Showmessage(Format('Breite: %d  Höhe %d',[w,h]));
end;