//首先要导入flash控件
shckwvflsh1.Movie := ExtractFilePath(ParamStr(0)) +'flvplayer.swf';
shckwvflsh1.SetVariable('file', ExtractFilePath(ParamStr(0)) + 'aaa.flv');
shckwvflsh1.SetVariable('quality', 'hight');
shckwvflsh1.SetVariable('autostart', 'true');
shckwvflsh1.Play;
flvplayer.swf 下载地址:http://www.ye22.cc/flvplayer.swf