DELPHI 中如何让LISTBOX控件显示SQL的数据库中所有的表名和让COMBOBOX控件显示数据库名的问题！求救！

[Rockred]

我做了一个仿照SQL查询分析器，COMBOBOX我已经显示了数据库表名，我想在COMBOBOX上面点击一下数据库名，就在LISTBOX上面显示该数据库里面所有的数据库表名！谢谢，求您们了！！！

[ForFumm]

select * from sys.objects where type ='U'