您好,參考下面程式

var
IntPtr:^Integer;
IntArray:array[0..9] of Integer;
i:Integer;
begin
for i :=0 to 9 do
IntArray[i]:=i;
IntPtr:=@IntArray[0];
for i :=0 to 9 do
begin
memo1.Lines.Add(Format('%p :(%d) ',[IntPtr,IntPtr^]));
Inc(IntPtr);
end;
// IntPtr:=ptr($0050010);
// Caption:=IntToStr(IntPtr^);
end;