--------------------------------------------------------------------------------

Модуль: 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;