sprite in delphix drehen

[Maximus]

Drehe:

Delphi-Quellcode:

// ...
TBall = class(TImageSprite)
 public
 Winkel, Bogen, Speed: Extended;
 procedure drehen;
end;

//...

procedure Ball.drehen;
begin
 Ball.Winkel := 1;
 Ball.Speed := 2;
 //Bogenmaß ausrechnen
 Ball.Bogen := (Ball.Winkel * Pi) / 180;
 //neue Koordinaten setzten
 Ball.X := Ball.X + cos(Ball.Bogen)*Speed;
 Ball.Y := Ball.Y + sin(Ball.Bogen)*Speed;
end;

So müsste es gehen! (das Ball hab ich jetzt halt einfach mal so gewählt!)