Another Pointer Question - TObjectList

[Gadget]

Ok, i guess that was expected lol
I mostly use TList and i use a function like:
[pascal]
function TMyList.GetItem(Index: Integer): TMyObject;
begin
Result := Nil;
If (Index < 0) Or (Index > Count-1) Then Exit;
Result := TMyObject(inherited Items[Index]);
end;
[/pascal]

Try using:
[pascal]
Player := TCreature(lstCreatures.Items[iX]);
[/pascal]

Now I get Incompatible types 'TCreature' and 'PCreature'

:?