[Kaktuz]

Нет. Я о том что если будет другой тип переменных?

Код:

var
  Form1: TForm1;
  var x,a1,a2,a3 : string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=Edit1.Text;
ShowMessage(a[x]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a1:='1';
a2:='2';
a3:='3';
end;