Бинарный файл и возможные действия с ним

[lichking]

здравствуйте тут одним учасником уже поднимался вопрос но тема закрыта поэтому открываю новую

вот код из старой темы:


procedure TForm1.Button1Click(Sender: TObject);
const
Fn = 'file.dat';
var
F : File;
S, FileName : String;
Len : Integer;
begin
//Предположим, файл лежит в той же папке, где расположена программа.
FileName := ExtractFilePath(ParamStr(0)) + Fn;
AssignFile(F, FileName);
Reset(F, 1);
Len := FileSize(F);
SetLength(S, Len);
BlockRead(F, Pointer(S)^, Len);
CloseFile(F);
Memo1.Lines.Add(S);
end;

подскажите как читать бинарный файл не сначала и например через 8 байт после начала потом остановиться пропустить 16 байт и начать читать его

[Pavia]

Используйте функцию seek()