Ponteiros - Arrays, variaveis

var
i:PInteger;
x:Integer;
begin
x:=5;  // conteudo de x igual a 5;
i:=@x ; // endereço de x;
i^:=4 ; //atribuição do conteudo 4 ao endereço referenciado pelo Ponteiro;
Showmessage(inttostr(X)) ;  

procedure TForm4.Button2Click(Sender: TObject);
var
  A: array[0..2] of Char;
  P: PChar; // PChar é ponteiro para Char
begin
  P := @A[0]; // pega ponteiro para o primeiro elemento no array
  P^ := 'O'; // mesmo que A[0] := ´O´
  P := P + 1; // avança para o próximo caractere no array
  P^ := 'i'; // mesmo que A[1] := ´i´
  P := P + 1; // avança para o próximo caractere no array
  P^ := '0'; // mesmo que A[2] := 0; isto termina a string
  Caption := A;
end;

procedure TForm4.Button3Click(Sender: TObject);
type
  T = array[0..2] of Char;
var
  A:T;
  PA:^T; // Ponteiro para o Tipo T;
  i: Integer;
begin
  PA:=@A ;  //pega o ponteiro para o Array definido pela Variavel A
 PA^[0]:='O';  // atribuição do conteudo '0' ao endereço referenciado pelo Ponteiro;  PA^[0]:
 PA^[1]:='i';    // atribuição do conteudo 'i' ao endereço referenciado pelo Ponteiro;  PA^[1]:
 PA^[2]:='O';   // atribuição do conteudo 'O' ao endereço referenciado pelo Ponteiro;  PA^[2]:
 for i := Low(A) to High(A) do
   Showmessage(A[i]);  //  mostrando o conteudo de A[i]
end;