如何将不同数据表格字段的值同时赋值给COMBOBOX的。(100分)

下面这段程序只能将一个数据表下的一个或几个字段下的值赋给COMBOBOX，如何能
将两个或更多数据表格下的字段值内容同时赋给COMBOBOX呢。
procedure TForm1.Button1Click(Sender: TObject);

begin
combobox1.items.clear;
with query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM caozuo');
Open;
while not Eof do
begin
combobox1.items.add(fieldbyname('mima').asstring);
next;
end;
end;
end;

你可以写成带参数的一个过程！

如rocedure FieldValueIntoCombobox(TableName,fieldName:String);
begin
combobox1.items.clear;
with query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM '+TAbleName);
Open;
while not Eof do
begin
combobox1.items.add(fieldbyname(''+fieldName+'').asstring);
next;
end;
end;
end;

然后用 FieldValueIntoCombobox('caozuo','mima');来调用，如果有多个表或是多个
则使用多次使用此函数。

问题没有提清楚

你的SQL 语句在写时做连接查询呀