delphi - 从模式对话框中调用脚本函数会显示“对象未实例化”

Question

从以下脚本代码中，我从Delphi调用Run过程，该过程也在Delphi中调用showmodal过程。
从新创建的模式对话框中调用Button1Click（）时，不会实例化全局变量sl。

脚本代码。

var sl : TStringList;

procedure Run();
begin
  sl := TStringList.create();
  ShowModal;
  showMessage(sl.Text);
  sl.free;
end;

procedure Button1Click();
begin
  sl.Add('DWS');
end;

Delphi边码。

1）调用Run（）

FExec := FCompiledScript.BeginNewExecution;
FExec.Info.Func['Run'].Call([]);
FExec.EndProgram;

2）展示式评估

Form1 := TForm1.Create(nil);
Form1.Exec := FExec;
Form1.ShowModal;

3）使用相同的IdwsProgramExecution对象从模式对话框中调用Button1Click

FExec.Info.Func['Button1Click'].Call([]);

此时，我收到错误“对象未实例化”。关闭对话框后，我没有任何显示消息。

Answer 1

DWS小组已解决此问题。报告问题并在几小时内解决。太棒了