Проблемма с выпадающим списком

[mma]

Дело в том что у меня две таблицы, и отношение между ними:-один ко многим. Я создаю еще одну таблицу, и хочу, чтобы в ней было поле выбора из второй.
Пример:
-Table1, столбец1 -склад(№1,№2...№Х);

-Table2, столбец1 -склад(№1),
столбец2 -товар(огурцы, яблоки, помидоры....х),
-склад(№2)
-товар(бананы, дыни,....х)
-склад(№Х)
-товар(х...........);
-Table3, столбец1 -склад(№1),
столбец2 -проданный товар(яблоки)
-склад(№2),
-проданный товар(дыни).
Пожалуйста,помогите кто знает.

[mma]

спасибо, уже сам сделал. Вот решение:

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.table3.edit;
form1.table3.Fields[1].Text:=table2.Fields[2].Text;
form2.Close;
end;