"Index der Liste überschreitet das Maximum (110)" Warum?

[Bjoerk]

Nimm mal das Spiel := TStringList.create aus der Button1Click heraus?

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  Spiel := TStringList.create;
  ..
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  Spiel.Free;
end;