type
       PtrCard = Integer attribute (Size = BitSizeOf (Pointer));
A signed integer type of the same size as a pointer.
PtrInt is a GNU Pascal extension.
     program PtrIntDemo;
     var
       a: PtrInt;
       p: Pointer;
     begin
       GetMem (p, 10);
       a := PtrInt (p);
       Inc (a);
       p := Pointer (a)
     end.