Снова DBLookupCombobox

[ul_mrAlex]

Подскажите пожалуйста, как сделать, что бы в появляющемся окне в элементе DBLookupCombobox брались данные из базы?
База к форме подключена через ADOConnection, ADOQuery, DataSource. На форме к DBLookupCombobox подключен доп-ый ADOQuery с другим запросом с данными к другой таблице. На форме так то все работает, все данные вносятся, но хотелось бы реализовать так, что бы из появляющегося окна данные вносились в базу...Вроде суть правильно описал.

При наведении и попытки выбора значения в DBLookupCombobox (в новом окне) вылетает ошибка:

и указывает на эту строку:
if (ShowModal = ID_YES) then

PHP код:

procedure TForm7.N14Click(Sender: TObject);
var Forma: TForm;
Data1:TDateTimePicker;
Voditel:TDBLookupCombobox;
begin
Data1:=DateTimePicker1.Create(nil);
Voditel:=DBLookupCombobox1.Create(nil);
Forma := CreateMessageDialog('Формирование наряда                                                 '+#13+
                                'Дата выезда:                                                                    '+#13+#13+
                                'Фамилия водителя:                                                ', mtInformation,[mbYes, mbCancel]);
 with Forma do
 try
Caption := 'Выберете дату';
data1.Parent:=Forma;
data1.Left:=165;
data1.Top:=28;
data1.Width:=120;
data1.Height:=20;
 
Voditel.Parent:=Forma;
Voditel.Left:=165;
Voditel.Top:=48;
Voditel.Width:=120;
Voditel.Height:=20;
 
if (ShowModal = ID_YES) then
Begin
With ADOQuery6 Do
begin
 Append;
 FieldByName('data').value:=DateTimePicker1.Date;
 FieldByName('voditel').AsString:=DBLookupCombobox1.Text;
 Post;
end;
end;
 finally
 data1.free;
 Voditel.Free;
 
 
end;end;