Пример работы с указателем на что угодно (Turbo Pascal).

pointer

program PointerTest;
    type
        IntPtr = ^integer;
    var
        src, dst : integer;
        intp : IntPtr;
        p : Pointer;
begin
    src := 42;
    dst := 0;
    
    new(intp);
    intp^ := src;
    p := intp;
    dst := IntPtr(p)^;
    
    writeln(dst);
end.