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.