Fehler beim erstellen einer Sinus-Tabelle

[Trigiton]

Hallo zusammen,

ich hab ein kleines Problem, ich will in einem Progamm eine ganz simple Tabelle mit Sinuswerten erzeugen. Hier mal der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  z, x : single;

begin
  x := 0; z := 0;
  for i:= 0 to 200 do begin
    x := sin(z);
    z := z + ((2 * Pi) / 200);
    Memo1.Lines.Add(IntToStr(i)+' :  '+FloatToStr(x));
  end;
end;

Das Problem ist das bei i=100 und i=200, für x unsinnige werte raus kommen: -1,1... und -2,2...
Ich weis das es schon mal einen Thread zu diesem Thema gab, finde ihn aber nicht mehr.

Kann mir einer dabei helfen?

Gruß
Trigiton