Delphi+ACCESS查询值所对应的表的有关问题

Delphi+ACCESS查询值所对应的表的问题
一个数据库里有许多表,想查询某个值然后吧这个值所在的表名显示在listbox中,怎么办?比如有数据库库A,里面有b,c,d三张表,表中都有‘编号’这个字段,且都有1001这个值。查询‘1001’,于是查询后在listbox中显示b,c.
在网上查到这个网页
http://www.cnblogs.com/michaelxu/archive/2009/11/04/1596106.html
但不知道怎么把他变成Delphi下用的。可以参考下,希望能理解我问意思。

------解决方案--------------------
ADOConnection1.GetTableNames(List: TStrings; SystemTables: Boolean = False)

第一个参数是返回数据库中所有可用的数据库表列表;
第二个参数表示是否要返回系统表。

遍历一下List就能得到所有的表名,后面就好办了