Программное создание подстановки в access

[CrHD]

Приветствую.
Есть необходимость связать две таблицы в access.

Начнем со структуры. Таблица Persons - поле Name, DoB, SN; Таблица Reports - поля Diag, Person, Doctor, Date.

Поясняю, через сам access делается все проще простого:
в таблице Reports, на поле Person => тип данных => мастер подстановки => выбираем таблицу Persons => выбираем поле Name => и получаем в таблице Reports, на поле Person великолепный чекбокс, в котором можно выбрать любого человека из таблицы Persons.

Но проблема - нужно создавать таблицы напрямую из Delphi.
Так вот, создаю таблицу довольно просто:

ADOQuery1.SQL.Text:='CREATE TABLE Report (`Diag` string (255), `Person` string (100), `Doctor` string (100), `Date` date);';

Также добавляю данные:

ADOQuery1.SQL.Add('INSERT INTO Report (Diag, Person, Doctor, Date) VALUES (:Diag, :Person, :Doctor, :Date);');
   Parameters.ParamByName('Diag').Value:=Checkbox1.text;
   Parameters.ParamByName('Person').Value:=Edit1.Text;
   Parameters.ParamByName('Doctor').Value:='House M.D';
   Parameters.ParamByName('Date').Value:=MaskEdit1.Text;
   ADOQuery1.ExecSQL;
   ADOQuery1.SQL.Clear;

То есть получается что в таблице Reports поле Person должно быть не string, а какая-то ссылка на множество полей...
Как же реализовать такую линковку таблицы?

Заранее благодарен за любые советы.

[Stilet]

Это обычная связь Master-Detail. Но если ты хочешь такое получить точь-в-точь в делфи так как оно выглядит в Акцессе - забудь о стандартных компонентах. Ищи на просторах инета ченить мегакрутое типа DevExpress, компоненты которых могут позволить в ячейке таблицы разворачивать связанную таблицу.
А сами таблицы связываются по уникальному ключу, как правило числовому, не здря Акцесс всегда настойчиво предлагает при создании таблицы создать ключ.

[CrHD]

Нет нет, я не хочу этого отображать в делфи. Мне нужно создать это в access, но из делфи.
Т.е. прога создает mdb, экспортит туда таблицы...
Потом открыв db.mdb нужно увидеть там эти таблицы связанными. Если запросом этого не реализовать, то мб это делается с подачи TAccessApplication?

[Stilet]

то мб это делается с подачи TAccessApplication?

На твоем бы месте я бы рискнул сделать запись в макрос создания в акцессе такой связи, потом посмотрел как этот макрос устроен и тогда да - можно попробовать описать все что показал макрос в TAccessApplication.