播放组件为什么在WIN7上关闭-----时会弹出内存错误?

调用的是Delphi导入的内置的组件
在XP下测试和试用没有问题,但在WIN7关闭时,却一直弹出错误框N个,我晕..高手帮分析下,快崩溃了..
//视频播放
procedure TMainForm.LoadAvi;
var
    i,j:Integer;
    f:string;
    playfile:string;
    s1:string;
begin    try
        //查询数据库
        with DataM.Q2 do
        begin
            Close;
            SQL.Clear;
            SQL.Add('Select top 1 * from Files where type=''跌繵''    order by num ');
            s1:= sql.GetText;
            Open;
            if RecordCount>0 then
            begin
                PlayFile:=VarToStr(FieldValues['Path'])+VarToStr(FieldValues['Filename']);  
                if FileExists(PlayFile)=true then
                begin
                    MSMediaPlayer1.Invalidate;
                    MSMediaPlayer1.FileName:=PlayFile;
                    MSMediaPlayer1.Play;
                end;      
            end;         
        end;    except    end;