function LineAngle(const C1,C2 : TPoint) : single; overload; {radians} begin result := ArcTan2(C2.X-C1.X, C2.Y-C2.Y); end; function LineAngle(const X1,Y1,X2,Y2 : integer) : single; overload; {radians} begin result := ArcTan2(X2-X1, Y1-Y2); end;