ComboBoxにデータを入れるときに ComboBox1.Items.Add('テスト');　ってしますよね。

じゃぁSQLのデータを入れるときにはどう表示するの？ってなりますよね。　やってみました。

動作の保証は出来ません。　あくまで自己責任でどうぞ。

procedure Tmenu.Button4Click(Sender: TObject);
var
　litem1 :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('test2').AsString;
　　 DM1.IBQuery1.Active := true;
　　 Ftest_Form.ComboBox1.Items.Add(litem1);
　　 DM1.IBQuery1.Prior;
　end;

　Ftest_Form.ShowModal
end;