помогите решить проблем с делфи 2009

BitBtn9Click(Sender: TObject);
begin
Edit1.Text:=floattostr(tan(strtofloat(Edit1.Text)));
end;

end.

end;

как в делфи 2009 сделать чтобы считал градусы