[AlexSku]

Код:

implementation

uses Math;

{$R *.dfm}

const
  x = 100.0;
  y = 100.0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:= Format('%.0f°', [RadToDeg(ArcTan2(y,x))]);
end;