as3 delphi向flash发送数据问题

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShockwaveFlash1.SetVariable('recevtext',edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
     str:String;
  begin
   str:=ShockwaveFlash1.GetVariable('recevtext');
   showmessage(str);
  end;

按钮1发送数据可以，按钮2接收数据，也可以显示按钮1发送的数据，但是在flash里的label里面不能显示，因为label在as3里不能设置变量，在as2中能设置变量，但是，我用的代码是as3的，as2中不能运行，有没有高手能解决啊。
[解决办法]

引用:

delphi中没有CallFunction方法，怎么办啊
Delphi/Pascal code?1ShockwaveFlash1.CallFunction '<invoke name:=''show'' returntype:=''xml''><arguments><string>hello</string><string>world</string></argumen……

没有完全相同的.

如果是2010及以上版本,可以看这里
传送门