Ok Danke jetzt habe ichs
mit dem folgenden code klappts
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=DegtoRad(strtofloat(labelededit1.text));
b := sin(a);
memo1.Lines.add(floattostr(b));
end;
...also so wie du erklärt hast
mfG, Nico