p:=@i

p:=pointer(i)

p:=@i

p:=pointer(i)

 Integer(p) 

IntToStr(pInteger(P)^)

var
   i: Integer;
   p: Pointer; {нетипизированный указатель}
begin
    i := 2018;
    P := @i; {получаем указатель на первый байт четырехбайтного числа}
//P:=Pointer(i);{с этой строкой - крах. Попытка преобразовать тип P приводит к ошибке}
    Form1.Memo1.Lines.Add('Значение указателя: '+IntToStr(Integer(P)));{получаем значение указателя}
    Form1.Memo1.Lines.Add('Значение 4-х байтной переменной i, на первый байт которой указывает p: ' + IntToStr(pInteger(P)^)); {выполняем преобразование типов и разыменование}

Var
   pLine:pPixelArray; {pPixelArray  - указатель на массив из RGB-триад, тысячи байтов}
   pPixel:pRGB; {указатель на тип-запись, три байта}
Begin
    pLine := Bitmap.ScanLine[0];
    pPixel := Pointer(DestLine);
End;

pPixel := Pointer(pLine);

  i:=2018;         // в переменной i значение 2018
  p:=pointer(i);  // p указывает на адрес в памяти 2018. А что находится по этому адресу - никому неведомо
  p:=addr(i);      // p указывает на i 

var
i: Integer;
p: Pointer; {нетипизированный указатель}
pI:pInteger; {указатель на данные типа Integer}
begin
    i := 123;
    P := pointer(i); {указатель на первый байт четырехбайтной переменной i}
    pI:=pInteger(p);{предлагаем рассматривать указатель pI как типизированный, указывающий на данные типа Integer}
end;