[Ross]

Бляагодарю. А я нашёл кое-что по-проще:

Код:

function GetFileSize(FileName: String): Integer; 
begin
  try 
    FS := TFileStream.Create(Filename, fmOpenRead); 
  except 
    Result := -1; 
  end; 
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

А применять:
просто вызываешь функцию и пишешь IntToStr(GetFileSize('C:\file.txt'));.
Усе, но всёравно спаибо.