Teste das mal sollte funktionieren
Delphi-Quellcode:
x := round(sin(Angle/180*pi)*Strecke)+x;
y := round(cos(Angle/180*pi)*Strecke)+y;
bin mir aber nicht sicher ist ne sache die ich rausgekrammt habe
edit :
ps : wenn du angle benutzt funktioniert die collision nicht mehr richtig glaube ich