type PtrCard = Cardinal attribute (Size = BitSizeOf (Pointer));
An unsigned integer type of the same size as a pointer.
PtrCard is a GNU Pascal extension.
program PtrCardDemo; var a: PtrCard; p: Pointer; begin GetMem (p, 10); a := PtrCard (p); Inc (a); p := Pointer (a) end.