Sinus,Kosinus,Tangens

[Derelict Angel]

hmm...

Code:

var
  z1,z2,z3:real;
begin
  z1:=StrToFloat(edZahl1.Text);
  z2:=StrToFloat(edZahl2.Text);
  if rbDeg.Checked=true then
  begin
    z3:=RadToDeg(sin(z1));
    edErgebnis.Text:=FloatToStr(z3);
  end;

Hoffe das Hilf weiter.