DELPHI 中怎么让LISTBOX控件显示SQL的数据库中所有的表名和让COMBOBOX控件显示数据库名的有关问题！

DELPHI 中如何让LISTBOX控件显示SQL的数据库中所有的表名和让COMBOBOX控件显示数据库名的问题！求救！
我做了一个仿照SQL查询分析器，COMBOBOX我已经显示了数据库表名，我想在COMBOBOX上面点击一下数据库名，就在LISTBOX上面显示该数据库里面所有的数据库表名！谢谢，求您们了！！！

------解决方案--------------------------------------------------------

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