invers tangens

Hej...

Det er meget mystisk

Jeg har lavet en knap der kan regne tangens af et bestemt tal:

procedure TForm1.Button20Click(Sender: TObject);
begin
g := StrToFloat(Edit1.Text);
if Degrees.Checked = True then Edit1.Text := FloatToStr(tan(DegToRad(g)))
else if Radians.Checked = True then Edit1.Text := FloatToStr(tan(g));
slut := true;
end;

så har jeg lavet en til Tan^-1 (altså invers tangens) som ser sådan her ud:

procedure TForm1.Button31Click(Sender: TObject);
begin
g := StrToFloat(Edit1.Text);
if Degrees.Checked = True then Edit1.Text := FloatToStr(arctan(DegToRad(g)))
else if Radians.Checked = True then Edit1.Text := FloatToStr(arctan(g));
slut := true;
end;

Men den kommer med et forkert svar altså den inverse. Tan(1) burde give 45, men min giver 0,01745. Hvad i alverden er der galt?

Jeg har det samme med cos og sin, men med cos virker den fint nok, det er kun sin og tan der opfører sig lidt meget mystisk