Was gibst du denn beim Create für einen Wert für aLength an?
Delphi-Quellcode:
constructor TNegativeArray.Create(aLenght: Integer);
var
i: Integer;
begin
MaxValue := IIF(aLenght > 6, aLenght, 0);
SetLength(FData, aLenght);
for I := 0 to aLenght do
FData[i] := TSprite.Create;
end;
gs := TNegativeArray.Create(6);
gruss