на форме 2 кнопки и 3 эдита.
Код:
var
mas: array of string;
n: integer=1;
...
//это мы задаем...
procedure TForm1.Button1Click(Sender: TObject);
begin
setlenght(mas,n+1);
mas[n] := Edit1.Text;
n:= n+1;
end;
// забираем
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := mas[strtoint(edit3.text)];
end;
в edit3.text лежит индекс массива
в edit2.text выдается строка из массива по указанному индексу из edit3.text;