Cacher is the code snippet organizer for pro developers

// Returns the size of a file in bytes; the function returns -1 if the file was not found.
function FileSize(fileName : wideString) : Int64;
var
	sr : TSearchRec;
begin
  if FindFirst(fileName, faAnyFile, sr ) = 0 then
	  result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
  else
  	result := -1;
    
  FindClose(sr);
end;