Delphi判断文件大小

Delphi自身提供了FileSize函数，例如：
    var
     f: file of Byte;
     size : Longint;
    begin
     AssignFile(f, 'f:/t.exe');
     Reset(f);
     size := FileSize(f);
     edit1.text := IntToStr(size);
     CloseFile(f);
    end; 
这一种如果判断的文件被其它程序使用，则会报错 I/O Error



     下面这种方法相对更好一些
    也可以使用下面的方法：
    function GetFileSize(const FileName: String): LongInt;
    var SearchRec: TSearchRec;
    begin
    if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
     Result := SearchRec.Size
    else
     Result := -1;
    end;