Win7 /8/2008下特定文件 tfilestream 获取文件大小异常！

var
  a:tfilestream;
  sr: TSearchRec;
begin
  a:=tfilestream.Create('c:\windows\regedit.exe',fmOpenRead);
  caption:=inttostr(a.Size);
  a.Free;  if FindFirst('c:\windows\regedit.exe', faanyFile, sr) = 0 then
  begin
    caption:=caption+'----'+inttostr(sr.Size);
    FindClose(sr);
  end;
end;难道只是我遇到吗~