在Delphi中跟据MS SQL语句得到表名

引用DBCommon单元，使用如下函数：
function GetTableNameFromSQL(const SQL: string): string;
{* 从SQL语句中得到表名}