1、delphi->component->import activex control->sockwaveflash->install
2、放一个opendialog和shockwaveflash控件和一个button控件
3、在button中
var
swf:string;
if opendialog1.execute then
begin
swf:=opendialog1.filename;
shockwaveflash1.movie:=swf;
shockwaveflash1.play;
end;