[Karsh]

боюсь, что только если так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
type
  TArr = array [1..10] of byte;
var
  A: TArr;
  P: Pointer;
begin
  P := @A;
  //set second element of array to 100 using only operations with pointer "P"
  //**********************
  TArr(P^)[2]:= 100;
  //**********************
  ShowMessage(IntToStr(A[2])); // "100"
end;