var
SQL_Str,Table_Name : String;
From_Position,I : Integer;
//////////////////////////////////(SQL语句里截取，没调试过，可能效率不是很高)
SQL_Str := UpperCase(Trim(Table1.SQL.Text));
From_Position := Pos(SQL_Str, UpperCase(From));
I := From_Position + 5;
While I <= Length(SQL_Str) do
Begin
if SQL_Str <> ' ' then
Table_Name := Table_Name + SQL_Str
else
Break;
Inc(I);
end;
