delphi如何读出某特定数据库中的所有表名并在树形图上显示？delphi通过ODBC连接sql server2008数据库

delphi怎么读出某特定数据库中的所有表名并在树形图上显示？delphi通过ODBC连接sql server2008数据库。
是这样的，比如我的sql server 2008中中有A1、A2、A3和maste等数据库。然后我想读出数据库A1中的所有表的名字，并显示在树形图上TTreeview。本人刚接触，望高手指点。

------解决方案--------------------
adoconnection就可以，他有个gettablenames，获取表列表
------解决方案--------------------
或者用查询
select [name] from sys.objects where [type]=N'U'
------解决方案--------------------
var st:TStringList;
//-----------------------
st := TStringList.Create();
st := adoconnection.gettablenames;
//操作ST
st.Free;