combobox2 随combobox1改变而改变,该怎么解决

combobox2 随combobox1改变而改变
有这样一个 数据库
Model   123   456  789  321  654   987

Man     VW    BMW   AD   GM   VW    VW


combobox1对应 Man

combobox2对应 model


当 combobox1选择 VW时  combobox2中 只有 123   654  321  


ADOQuery1.Close;
ADOQuery1.SQL.Text:='select Man,Model from data where Man="'+ComboBox1.text+'"';
ADOQuery1.Open;
combobox2.Items:=ADOQuery1.FieldByName('Model').AsString;


有什么错误吗？为什么提示最后一行错误


应该如何写？
------解决方案--------------------
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select Man,Model from data where Man="'+ComboBox1.text+'"';
ADOQuery1.Open;

combobox2.items.clear;
while not adoquery1.eof do begin
combobox2.Items.add(ADOQuery1.FieldByName('Model').AsString);
adoquery1.next;
end;

------解决方案--------------------
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select Man,Model from data where Man="'
  +ComboBox1.text+'" order by Model';
ADOQuery1.Open;

combobox2.items.clear;
while not adoquery1.eof do begin
combobox2.Items.add(ADOQuery1.FieldByName('Model').AsString);
adoquery1.next;
end;