Hallo zusammen,
Self.Width := Self.Width div 2; //Breite des Übergabeobjektes verdoppeln
.
Hier hast Du natürlich auch Glück, dass bei der Zuweisung der Hälfte der Breite von Delphi das Ergebnis automatisch in eine Ganzzahl umgewandelt wird.
Die Hälfte von 47 wäre 23.5 was ein Extended und kein Integer wäre und strenggenommen eigentlich nicht der Property Width zugewiesen werden kann. Ein Round() wäre schön.
Vielleicht noch die Kommentare anpassen, damit sie mit dem übereinstimmen, was gemacht wird.
Div liefert immer eine Ganzzahl.