FastScript　对象参数或变更参数怎么使用？(100分)

FastScript　对象参数或变更参数怎么使用？
简单实例如：
procedure TForm1.Button1Click(Sender: TObject);
begin
fsScript1.Clear;
Memo1.Lines.Text:='begin
';
// 如果调用窗体里的参数就出错怎么办？
// Memo1.Lines.Add(' ShowMessage(Button1.Name)');
Memo1.Lines.Add(' ShowMessage(''Run Script'')');
Memo1.Lines.Add('end.
');
fsScript1.Lines := Memo1.Lines;
fsScript1.Parent := fsGlobalUnit;
if fsScript1.Compile then
fsScript1.Execute else
ShowMessage(fsScript1.ErrorMsg);
end;

看他自带的 demo，编译过程和 delphi 的类似。
你得告诉他这东西是什么，由什么地方来的，比如，定义一个变量，同时把变量和内部对象关联。

LSUPER,你好！
里面的DEMO我已经看了，但不知道怎么调用对象如：ADOQuery的相关数据？
请明示谢谢！！！

http://www.delphiturkiye.com/forum/viewtopic.php?t=19035