Array type required problem med array

Jeg har følgende kode, som jeg får en fejl melding med som er følgende:

Array type required.

array'et position skal erklæres sådan at man også har adgang til den i andre procedure.

var
  position : array[1..1] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
a : integer;
begin
a := position[1];
showmessage(inttostr(a));
end;
end.