delphi能不能控制flash动画？ (30分)

form上放一个flash动画，还放4个按扭，分别是暂停，播放，前进，后退
1。按暂停按扭后flash动画应该停止。
2。按播放按扭后flash动画应该继续播放。
3。按前进按扭后flash动画应该前进几个阵。
4。按后退按扭后flash动画应该后退几个阵。
必须能暂停flash的move clip动画！！！！！！！！！！！！！
谢谢大家！！！！！！！

用 swflash.ocx。
Play：播放动画；
Stop；停止播放；
Back；播放前一帧；
Forward：播放后一帧；
Rewind：从新从帧第一开始播放；

Component->Import ActiveX Control->Add 然后选择系统目录（system or system32）下
Macromed->Flash->Flash.ocx然后点安装。然后在窗体上添加ActiveX页下的ShockwaveFlash，
再放上四个按钮。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB;

type
TForm1 = class(TForm)
ShockwaveFlash1: TShockwaveFlash;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin

ShockwaveFlash1.LoadMovie(0,'e:/downloads/1694.swf');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

ShockwaveFlash1.StopPlay;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

ShockwaveFlash1.Play;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin

ShockwaveFlash1.Forward;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin

ShockwaveFlash1.GotoFrame(ShockwaveFlash1.FrameNum-10);
end;


end.

这个问题也提啊。晕~~~~
旧帖子一大堆，自己不知道查查啊。

谁知道setvariabel（）函数能不能用；

看它的方法列表就知道了，很明显的，：）

Delphi园地
http://mydelphi.8u8.com
Flash播放器源码

谢谢大家！！