{тут мы заполняем выподающий список значением}
procedure TForm1.FormCreate(Sender: TObject);  // это конструктор формы
begin
   ComboBox1.Style := csDropDownList; // не редактируемый, выподающий список, пользователь может только выбирать.
   ComboBox1.Items.Clear; // очистим если что есть
   ADOTable1.Active:= true;  // активируем таблицу
   ADOTable1.DisableControls;  // запретим отображать изменения/перемещения по таблице
	ADOTable1.First; // установим курсор таблицы в самое начало
	while(not AdoTable1.Eof)do  // пока не достигнут конец таблицы
	begin
		ComboBox1.Items.Add(ADOTable1.fieldbyname('name_p').AsString); // добовляем значения по которым быдем фильтровать
		Adotable1.Next; // переместимся на одну запись в перед
	end;
   ADOTable1.EnableControls;// разрешаем контролы для таблицы
   ComboBox1.ItemIndex := 0;// устанавливаем первый элемент в ComboBox
end;
{это событие выбора в ComboBox}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
	ADOTable2.DisableControls; //отключаем контролы
   ADOTable2.Filtered := false; // отключаем фильтр
   ADOTable2.Filter := Format('pole1 = %s',[QuotedStr(ComboBox1.Text)]); // устанавливаем фильтр
   ADOTable2.Filtered := true;// включаем фильтр
   ADOTable2.First; // на первую запись
   ListBox1.Clear;// очистим лист
   while not ADOTable2.Eof do // пока есть что читать
   begin
     ListBox1.Items.Add(ADOTable2.FieldByName('ваше поле').AsString); // заносим в лист
     ADOTable2.Next; // на следующую запись
   end;
   ADOTable2.First; // если нет контролов, можно не использовать, иначе, вернемся в начало
   ADOTable2.EnableControls; // разрешим контролы (реакцию компонентов отображения связаных с таблицей)
  { для Query аналогично.}
end;