Не работает задумка выбора списка

[Ardarik]

Долго думал как тему лучше не придумал.
На форме есть несколько ComboBox. Один показывает список типов (ComboBox2), другой должен в зависимости от выбора ComboBox2 выдавать свой список.

procedure TForm3.ComboBox2DropDown(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Text := ('SELECT `Наименование` FROM name WHERE `Тип`='+(IntToStr(ComboBox2.ItemIndex+1)));
ADOQuery2.Open;

  ComboBox3.Items.Clear;
  While not ADOQuery1.Eof do
  begin
     ComboBox3.Items.Add(ADOQuery2.Fields[0].AsString);
     ADOQuery2.Next;
end;
edit1.Text:=IntToStr(ComboBox2.ItemIndex+1);// для проверки
 end;

А он ни чего не выдает

[Stilet]

в зависимости от выбора

Так тебе нужно описать это в событии OnChange.

[Stilet]

в зависимости от выбора

Так тебе нужно описать это в событии OnChange.

[Ardarik]

Спасибо, заработало