在delphi中,开篇动画演示完，按动画中的一个按钮如何调用另一个动画 ( 积分: 100 )

procedure TForm2.FormCreate(Sender: TObject);
begin
shockwaveflash1.Movie:='d:/2004/nj2007.swf';
shockwaveflash1.play;
end;




procedure TForm2.ShockwaveFlash1FSCommand(Sender: TObject; const command,
args: WideString);
begin
if command='shouye' then
begin
shockwaveflash1.Movie:='d:/2004/2004nj.swf';
shockwaveflash1.play;
end;
end;