Winkelfuntionen machen Zicken

[pseudo-nym]

Da das mein erster Beitrag ist erstmal:

Hallo

Hab sonst immer nur gelesen, aber jetzt ein Problem das dringend einer Lösung bedürfte.
Und Zwar hab ich bei meinem Taschenrechner Winkelfunktionen eigebaut, die eigentlich ganz gut gehen wenn nicht bei Nullstellen Werte wie -5,42101086242752E-20 rauskommen würden.
Hab da programmiert:

Delphi-Quellcode:

procedure TRechenprogramm.ButtonSinClick(Sender: TObject);
begin
  Vorbereiten(EditEin1.Text, EditEin2.Text);
  if
    RButtonArgument1.Checked=true
  then
  begin
    Ergebnis:=Sin(Pi*Wert1/180);      
    EditAus1.Text:=FloatToStr(Ergebnis);
    EditEin2.Text:=FloatToStr(0);
  end;
  if
    RButtonArgument2.Checked=true
  then
  begin
    Ergebnis:=Sin(DegToRad(Wert2));
    EditAus1.Text:=FloatToStr(Ergebnis);
    EditEin1.Text:=FloatToStr(0);
  end;
end;

Hilfe!