Заполнение DBgrid из DBLookupComboBox1

[girz]

Имеется форма с расположенным в ней DBgridom1 в который выводится БД "запрос" с помощью компонентов ADOtable1 и DateSource1. В DBLookupComboBox1 выводится "Покупатели" из другой таблицы "Клиенты" подключение также через ADOTable2 и DataSource2, а вот компонент ADOQuerty я подключил в свойстве к DataSource1 т.к считаю что процедура будет выводить данные в DBgrid1.
Подскажите правильно ли я сделал и подправте код а то у меня в голове одни ошибки.
procedure TForm3.DBLookupComboBox1Click(Sende r: TObject);
var
n2: integer;
begin
try
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='Select * From Запрос Where Покупатель('+QuotedStr(DBLookupComb oBox1.Text)+')';
ADOQuery1.ExecSQL;

except
on ENoResultSet do
n2:=1;
end;
ADOTable2.Refresh;
end;

end.