|
@@ -1200,7 +1200,7 @@ begin
|
|
FreeAndNil(NextLevelItems);
|
|
FreeAndNil(NextLevelItems);
|
|
|
|
|
|
while NextLevelItems <> nil do
|
|
while NextLevelItems <> nil do
|
|
- begin WriteLn('Loop');
|
|
|
|
|
|
+ begin
|
|
CurrentLevelItems := NextLevelItems;
|
|
CurrentLevelItems := NextLevelItems;
|
|
NextLevelItems := TFPList.Create;
|
|
NextLevelItems := TFPList.Create;
|
|
|
|
|