Fehler bei SetLength

[peter314]

Hallo allerseits,
ich scheine irgendetwas falsch zu machen, aber was, weiss ich nicht.
Der Fehler tritt bei mir eigentlich immer auf, wenn ich mit Setlength arbeite.
Beim dritten Durchlauf des Programms bekomme ich immer eine AccesViolation.

Delphi-Quellcode:

var
  Form1: TForm1;
  Punkt: Array of TPoint;
  s: string;                        //Formel
  Anzkoef: integer;                 //Anzahl koeffizienten
  y: Array of real;
  koeffizient, exponent: Array of real; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  s:= Edit1.Text;
  nextsign(s);
  ListBox1.AddItem('f(x)='+Edit1.Text,Form1);
  Anzkoef:= findkoef(s);
  SetLength(Punkt, 600{Anzpunkte});
  SetLength(y,600);             {Hier tritt der Fehler auf. Wie gesagt immer beim dritten Mal}
  SetLength(koeffizient,Anzkoef);
  SetLength(exponent,Anzkoef);
  berechnen;
  zeichnen;
end;

Kann mir da irgendjemand helfen, dass geht mir nämlich langsam ziemlich auf den Keks.
Danke.