Inputbox und For-Schleife -> Fehler?!

[ISAS]

Wie gesagt bereitet mir eine Inputbox in einer For-Schleife einen Fehler.

Wenn ich einfach ein Programm erstellen würde, was, wenn ich auf einen Button klicke folgende procedure macht:

Delphi-Quellcode:

for i:=0 to 3 do begin
   eingabe:=inputbox('','','');
end;

dann funktioniert das ja, aber in meinem Falle nicht, da das ganze Programm ein bisschen komplexer ist.

Delphi-Quellcode:

for i:=0 to 3 do begin
 if Gegenstand[i].hand=true then begin
  eingabe:=inputbox('','','');
 end;
end;

Bei folgendem Code hängt sich das Programm auf und makiert die Zeile if Gegenstand[k]... blau. Aber wieso?? Würde diese if-Bedingung nicht hier stehen, würde alles funktionieren.

Weiss nicht, ob das von bedeutung ist, aber Gegenstand ist folgendes:

Delphi-Quellcode:

 TGegenstand = class(TImageSprite)
  public
 constructor Create(AParent: TSprite ); override;
 end;

var Gegenstand:=array[0..3] of TGegenstand