[NLObP]

Diverclaim, сделай примерно так

var
    PlayerId : integer;
...
procedure Init
Begin
    PlayerId:=$003B2146;
end;
...
if PlayerId=ReadD(4) then
...