为了得到当前使用的数据表名称，想通过一个全局变量FmType的值判别后传递进来

[星火成炬]

各位大虾,特急！！！：

小弟我Delphi不熟悉，正在做一个项目里的通用查询模块，为了得到当前使用的数据表名称，想通过一个全局变量FmType的值判别后传递进来，大致如下：

1、自定义函数：

function Myfun(Fmt:integer):string;
case fmt of
1011:
result:='MyDataModule.Tbjscg';
1021:
result:='MyDataModule.Tbrck';
......类似
end;

2、然后在我的查询窗口的《开始查询》按钮Click事件中

想得到如下效果：
with Myfun(1011) do
Ls:=Fields[2].FieldName:
end;
相当于：
（ with MyDataModule.Tbjscg do
Ls:=Fields[2].FieldName:
end;）的效果
3、如果这样写：肯定不行，怎样能够用MyFun(1011)返回我希望的
MyDataModule.Tbjscg呢，字符串是不能用来传递TTable对象了。

[IAmKylix]

请如下修改：
with TTable(Myfun(1011)) do
Ls:=Fields[2].FieldName:
end;

[IAmKylix]

对不起，以上是错误的。
请按照以下改：
with TTable(MyDataModule.FindComponent(MyFun(1011))) do
Ls:=Fields[2].FieldName:
End;
(此窗体需Uses DBTables)

[kxy]

你为什么不直接传Table呢？
比如
function Myfun(Fmt:integer):TTable;// string ==> TTable;
case fmt of
1011:
result:=MyDataModule.Tbjscg;
1021:
result:=MyDataModule.Tbrck;
......类似
end;
/////
with Myfun(1011) do
Ls:=Fields[2].FieldName:
end;

[星火成炬]

多谢IAmKyLix和kxy,两位大虾的答复解决了燃眉之急。
两位的方法都好用，kxy的方法更简洁。