播放组件为什么在WIN7下关闭-时会弹出内存异常

播放组件为什么在WIN7上关闭-----时会弹出内存错误?
调用的是Delphi导入的内置的组件
在XP下测试和试用没有问题,但在WIN7关闭时,却一直弹出错误框N个,我晕..

高手帮分析下,快崩溃了..

Delphi(Pascal) code

//视频播放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;

Delphi(Pascal) code

if FileExists(PlayFile)=true then这样写看起来有些怪癖，直接把后面的=true去掉；效果是一样的。这样写是不是更直接呢？if FileExists(PlayFile) then