Um den Winkel herauszubekommen musst Du folgendes machen:
Sei p1 und p2 die letzten beiden Punkte vom Typ TPoint.
Dann ist der Winkel a gegeben durch:
a:= arcTan[ (p2.y-p1.y)/(p2.x-p1.x) ]
Wie arcTan als funktion in Delphi heisst weiß ich jetzt nicht genau aber das kriegste schon raus!
Und du musst vorher noch auf den Sonderfall aufpassen wenn die x-Koordinaten beide gleich sind, weil dann
Division durch 0 auftritt! Das am besten mit ner Exceptoin abfangen und dann den Winkel halt auf 90 grad setzten...
Mit den Infos müssteste den Rest alleine schafen denk ich!
