Модуль: System

Описание
Функция возвращает текущую позицию указателя в файле (файл должен быть предварительно открыт). Параметр Vf представляет собой файловую переменную, ассоциированную с файлом.
Данная функция не может быть применена к текстовым файлам.

Пример
var
   Vf: File of Byte;
   S : string;
   Size, I: Integer;
begin
   Randomize;    AssignFile(Vf, 'work.dat');
   Rewrite(Vf);       //создает файл work.dat
   for I:= 0 to 100 do
     begin
     Seek(Vf, I);
     Write(Vf, I);  //записывает в файл послед. чисел от 1 до 100
     end;
   Size:= FileSize(Vf);  //определяет размер файла
   Seek(Vf, random(Size));   { устанавливает указатель в произвольную позицию }
   MessageDlg('Текущая позиция указателя: ' + IntToStr(FilePos(Vf)), mtInformation, [mbOk], 0);
...
   CloseFile(Vf);
end;