procedure BitBtn1OnClick(Sender: TfrxComponent);
var  F:  TFileStream;
    FN:  string;                                                           Â
begin
  FN := 'c:\temp\notfound.txt';
  try
    F := TFileStream.Create( FN, fmOpenRead); // that WON'T work if other process has the file opened in exclusive mode !!!
    ShowMessage( 'File size: ' + IntToStr( F.Size));                                                                                                             Â
    F.Free;
  except
    ShowMessage( 'File:  (' + FN + ') doesn''t exist');
  end;
  ShowMessage( Application.ExeName);                 Â
end;
Comments
How to use, implement FileExists
Regards
Mick