[destructor]

противолежащийкатет:=y2-y1;
прилежащийкатет:=x2-x1;
тангенс: = противолежащийкатет / прилежащийкатет;
угол:= ArcTan( тангенс );


ну если только делфи опять не заглючит