ich hab irgendwann mal sowas ähnliches geschrieben, ich such gleich link
edit: grad gefunden, ist nur apprall an ner geraden... Breakit :p naja vieleicht hilfts dir:
http://www.delphiforum.de/topic_Brea...phi_91519.html
Delphi-Quellcode:
Mitte := Sprite.X + Sprite.Width/2;
Winkel:= round(Winkel + (x-Mitte)*5);
xDiff := -cos(Winkel*Pi/(random(50)+130)) * Speed;
Y := Spielfeld.y - 56;