Hi Gadget,

The problem is the following code:
[pascal]
Player := @lstCreatures.Items[iX];
[/pascal]
Change it to:
[pascal]
Player^ := lstCreatures.Items[iX];
[/pascal]

this should do the trick