要はこういうことをしたいわけです。　ユニークキーと文字列を一緒に入れたいんです。

初めは二列に出来ないかと思ったんですが、これに行きつきました。

ではどのようにして作ったかというと・・・・とても簡単です。　以下に置いときますね。

procedure Tmenu.Button4Click(Sender: TObject);
var
　litem1 :string;
　litem2 :string;
begin

　Ftest_Form.ComboBox1.Items.Clear;

　DM1.IBQuery1.SQL.Clear;
　DM1.IBQuery1.SQL.Add('SELECT');
　DM1.IBQuery1.SQL.Add(' test1,');
　DM1.IBQuery1.SQL.Add(' test2,');
　DM1.IBQuery1.SQL.Add(' test3');
　DM1.IBQuery1.SQL.Add('FROM');
　DM1.IBQuery1.SQL.Add(' MST_test_table');
　DM1.IBQuery1.Active := true;
　DM1.IBQuery1.Last;

　while not DM1.IBQuery1.Bof do begin
　　 litem1:=DM1.IBQuery1.FieldByName('test1').AsString;　←こっちを追加したい。
　　 litem2:=DM1.IBQuery1.FieldByName('test2').AsString;
　　 DM1.IBQuery1.Active := true;
　　 Ftest_Form.ComboBox1.Items.Add(litem1+' '+litem2);　←こういう事。
　　 DM1.IBQuery1.Prior;
　end;

　Ftest_Form.ShowModal
end;