var
  X, Y: Integer;   // X 跟 Y 是 Integer 變數
  P: ^Integer;     // P 是指向 Integer 的變數
begin
  X := 17;         
  P := @X;         // P 是指 X 變數的記憶體位置(取得某變數的記憶體位置用 @ 這個符號)
  Y := P^;         // Y 是取得 P 這個記憶體位置的值(取得某變數的記憶體位置的值用 ^ 這個符號, 要放在變數後面)
end;