function FileSize(var F: File): LongInt;
function FileSize(var F:  TextFile):  LongInt;

Функция FileSize возвращает размер файла F в записях. Если F текстовый файл, размер записи может быть произвольно задан размером буфера, который по умолчанию равен 128 байтам. Если F - нетипизированный двоичный файл, размер записи задается при открытии файла. FileSize не является настоящей функцией.

• Если файл F не был открыт, FileSize выдает ошибку ввода/вывода 103.
  
• Настоящие текстовые файлы не имеют записей фиксированного размера, и потому функция FileSize бесполезна для текстовых файлов. Используйте вместо FileSize потоки (streams) или функцию Windows API GetFileSize.
  
  // Возвращает размер текстового файла в байтах или -1
  // в случае ошибки.
  function TextFileSize(var F: TextFile): Longlnt;
  begin
     case TTextRec(F).Mode of
        fmlnput, fmOutput: Result := GetFileSize(TTextfiec(F).Handle, nil);
        else                         Result := -1;
     end;
  end;
  
  
• FileSize не поддерживает файлы размером свыше 2 Гбайт. Обратитесь к описанию функции FileSeek из модуля SysUtils или используйте Windows API для работы с большими файлами.