以下是我计算角度的方法。
procedure TForm1.Label13MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 mx,my,seq:integer;
begin
 if seq=0 then
  begin
    image1.Canvas.moveTo(x,y);
  end
  else if seq=1 then
  begin
    image1.Canvas.MoveTo(mx,my);
    image1.Canvas.LineTo(x,y);
  end
  else if seq=2 then
  begin
    image1.Canvas.MoveTo(mx,my);
    image1.Canvas.LineTo(x,y);
    
  end;
  mx:=x;my:=y;
  seq:=(seq+1) mod 3 ;
end;
  角度该咋算??