// Da es sich scheinbar nicht so richtig  herumspricht, dass Delphi bei
// Winkelfunktionen nicht mit Grad sondern mit Bogenmaß rechnet, ein
// kleines Beispiel wie der Sinuswert aus einer Gradzahl errechnet wird
// (und auch wieder zurück).

// Getestet mit D4 unter WinME

uses math;

procedure TForm1.Button1Click(Sender: TObject);
var grad,sinus:double;
begin
grad:=45;
sinus:=sin(degtorad(grad));
showmessage(floattostr(sinus)); // = 0,70710676908493

// --- und wieder von "Sinus" nach "Grad" zurück ---------

grad:=radtodeg(arcsin(sinus));
showmessage(floattostr(grad)); // = 45
end;