Neviem či si dal dobrý príklad:
Pointer(objekt) predsa nie je integer...

Ak by som chcel do vlastnosti objektu tag uložiť napr. nejaký text, potom asi nejak takto:

var
 mystring : String;
 tagstring: PChar;
begin
  mystring := 'blabla';
  getmem(tagstring, 1+ Length(mystring);
  StrPCopy(tagString, mystring); 
  neco.tag := integer(mystring);
end;