управление чужим swf

[leybniz]

Наглости, хоть отбавляй , задавать вопросы по Delphi на форуме про Flash.

1. Покласть на форму Flash ActiveX под именем Flash
2. Клацнуть 2 раза по форме сделать так:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Flash.Movie:='c:\enemy.swf';
end;

3. Покласть на форму компонент Timer(вкладка System),
клацнуть по нему два раза, написать вот это:

 
procedure TForm1.Timer1Timer(Sender: TObject);
Var myVarValue : WideString;
begin
    myVarValue:=Flash.GetVariable('MyVar');
end;