Also .. du bewegst es bereits auf der Form, das schent zu funktionieren - oder?
Die Breite ändern in abhängigkeit des winkels...
Du must dir vorher die rginale Bildhöhe speichern, dann müsste es so ungefähr gehen:
Delphi-Quellcode:
Image1.Width = orginalbreite * sin(Winkel) * sin(Winkel);
// bzw.
Image1.Width = orginalbreite * 0.5 * (1 + sin(Winkel));
Wenn ich dich richtig verstanden habe