TImage: mit Mouse-wheel ein Bild vergrößern bzw. verkleinern

[Helmi]

*push*

Hat keiner ne Ahnung wie man das oben machen könnte?

Ach ja, die Form hat ein MousewheelDown und MousewheelUp.

Nur weiss ich noch nicht wie man ein Bild (Picture) in einem Image von der Größe her verändern kann.

Ich hab mal folgendes probiert:

Code:

const
Prozent = 90;

Image1.Picture.Height := trunc(Image1.Picture.Height * Prozent / 100);
Image1.Picture.Width  := trunc(Image1.Picture.Width * Prozent / 100);

Nur wenn ich diesen Code compilieren will, dann bekomm ich die Meldung, dass man eine Nur-Lesen-Variable nicht beschreiben kann.

Wie kann man das machen?