[:S.p.a.m.]

А так не пойдет?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10] of byte;
  P: ^byte;
begin
  P:=@A[2];
  P^:=5;

  ShowMessage(IntToStr(a[2]));
end;