Ich habe das Problem nun folgendermaßen gelöst:
Delphi-Quellcode:
Winkel:=ArcTan((YPunkt2-YPunkt1)/(XPunkt2-XPunkt1)) *180/PI;
if ((YPunkt2 > YPunkt1) and (XPunkt2 < XPunkt1)) or ((YPunkt2 < YPunkt1) and (XPunkt2 < XPunkt1)) then
Winkel := Winkel + 180
else if ((YPunkt2 < YPunkt1) and (XPunkt2 > XPunkt1)) then
Winkel := Winkel +360;
THX an alle!
