Как отобразить LookUp поля в ComboBox

[DashaShirshova]

Имеется база, подключенная из Access в Delphi 7. Почти во все таблицах имеются LookUp поля.
Организуется след. образом - в ComboBox1 выводятся названия таблиц, в ComboBox2 - поля. Я хочу, чтобы во втором ComboBox'e отображались Look Up поля, а не те, которые скрыты. Например, в таблице Гибриды есть поле Вид самца, в начальной базе, вместо него в делфи у меня поле Самец, оно Look Up. Для Вид самца стоит Visible:=False. Но в ComboBox'e поле Самец не отображается, отображается только Вид самца, по которому я не могу сделать запрос, т.к. там только код, а не само значение. А как вывести в ComboBox новые LookUp?
Поля передаются след. образом:
if ComboBox1.Items[19]='Внешний вид гибридов'then
begin
Form1.DBImage1.DataField := '';
DM.HLook.Active:=False;
DM.HLook.open;
DM.ADOConnection1.GetFieldNames(com bobox1.items[ComboBox1.ItemIndex], combobox2.Items);
end;