Andorra 2D Probleme

[Vasco da Gama]

Hi, ich habe nach Vorbild der Wormhunter Demo das ding etwas umgebaut....

Delphi-Quellcode:

procedure TEinheit.Gehen(P: TPoint);
begin

  SetDir(round(ArcTan((Y - P.Y) / (X - P.X))));

end;

procedure TEinheit.SetDir(ADirection: Integer);
var
  w:integer;
begin
  //Reset the speed variables
  FYSpeed := 0;
  FXSpeed := 0;


  w := ADirection;
  ShowMessage(IntToStr(w));
  //Set the X and the Y speed
  FXSpeed := round(cos(PI/180*w)*Speed);
  ShowMessage(IntToStr(FXSpeed));
  FYSpeed := round(sin(PI/180*w)*Speed);
  ShowMessage(IntToStr(FYSpeed));
  AnimLoop := true;
  AnimActive := true;
end;

Mit den ShowMessages zeige ich mir Testweise an, ob es vernünftige Werte sind, und das sind sie.
Weiters: Ich habe in der Schule noch nichts über sinus cosinus tangens oder arctangens oder sonst was in der Richtung gelernt, und habe mir die Funktionen aus verschiedenen Codes zusammengebastelt....

Fazit: Die Figur geht erstmal(Die Animationsrichtung leg ich fest, wenn das mal klappt), allerdings bewegt sich der Sprite nicht vom Fleck.... weiß jemand warum

mfG