[ART]

Все, нашел и доделал.

Код:

function TForm1.GetAngle(x1,y1,x2,y2:single):single;
begin
Result:=180*ArcTan2(y2-y1,x2-x1)/pi+90;
if x1>x2 then Result:=Result+180 else Result:=Result-180;
Result:=180*Result/255;
end;