这个问题可以这样来解决
with query1 do
begin
  close;
  sql.clear;
  sql.add('select distictn bh from table1');
  open;
  first;
  combobox1.clear;
  while not( query1.eof) do
  begin
   combobox1.items.add(fieldbyname('bh').asstring);
   Next;
  end;
end; //combobox1操作
for I := 0 to combobox1.item.count-1 do
begin
if combobox1.text <>'' then
with query1 do 
begin
  close;
  sql.clear;
  sql.add('select * from table1 where bh = :bh');
  params.items[0].asstring := combobox1.text;//or 
  //params.items[0].asinteger:=strtoint(combobox1.text);
  open;
  first;
  while not (query1.eof) do
  begin
    stringvalue := Stringvalue + fieldbyname('value').asstring;
  end;
end;
query2.append//
with query2 do
beign
fieldbyname('bh').asinteger := Strtoint(combobox1.text);
fieldbyname('valeu').asstring := Stringvalue;
post;
end;
end;