怎么给动态打开窗口里的全局变量赋值

如何给动态打开窗口里的全局变量赋值？
A窗口
  public
  { Public declarations }
  tableName1:string;


动态打开A窗口
  with TFormClass(FindClass('T'+FormClassName)).Create(Application) do
  try
  if FindComponent('Edit14') <> nil then
  begin
  (FindComponent('Edit14') as TEdit).Text := id;
  end;

这是查找控件并赋值，那如何查找变量 tableName1 并赋值？

------解决方案--------------------
可以试下
with TForm2(TFormClass(FindClass('T'+FormClassName)).Create(Application)) do
begin
.....
 tableName1:='测试';
.....
end;
------解决方案--------------------
不是tform是窗口a的类名，也就是'T'+FormClassName这个类型。
------解决方案--------------------
将tableName1 放在published域里就应该可以存取
------解决方案--------------------
比如说a窗口类的定义这样的
type
TFormA=class(TForm)
//其他省略
end;
然后就这样写：
with TFormA(TFormClass(FindClass('T'+FormClassName)).Create(Application)) do
begin
tableName1:='测试';
end;