Flash in Delphi einbinden?

[mcjoin]

@Master_BB :
Falls du es noch nicht gefunden hast::

::flash::

Code:

On ( Press ) 
{
   fscommand('Command','machWas');
};

oder:

Code:

_root.b1.onPress = function() 
{
   fscommand('Befehlsatz1','MachMa');
};

:elphi::

Delphi-Quellcode:

procedure TForm1.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
   if (command = 'Befehlsatz1') then
   begin
      if (args = 'MachMa') then Foo(bla)
      else showmessage(foo2(args));
   end; //...else ... usw
end;