Problem mit dynamischer Array und eaccessviolation

[CarlAshnikov]

Da ich lieder keine Zeit mehr für Erklärungen habe hier mal nur der Quelltext:
Damit konnte ich zumindest 2 Diamanten einsammeln

Delphi-Quellcode:

procedure TForm1.EngineTimer(Sender: TObject);
var
  Index: word;
begin
  if not Spiel.rPause then
    form1.Caption := 'Aspirin' + ' ' + 'Punkte: ' + inttostr(Spiel.rPunkte);
  if Spiel.rPause then
    form1.Caption := 'Aspirin' + ' ' + 'Pause';
  if Spiel.rPunkte > 0 then
  begin
    if t1 = 1 then
    begin
      //showmessage('Jetzt')  ;
      for index := 0 to Spiel.anzahl-1 do  //<----- hier lag der Fehler
      begin
        label1.Caption := inttostr(Spiel.anzahl);
        Spiel.shpos[index].Bewegung();
        //Spiel.sh[index].Top := Spiel.shpos[index].rpunkt.Y;
      //  sh2[index].Bewegung;

      end;
    end;
  end;
end;