[Nyctos Kasignete]

Код:

var
  f: File;
  s: PChar;
begin
  AssignFile(f, 'myFile');
  Reset(f, 8);
  GetMem(s, 8);
  BlockRead(f, s^, 1);
  CloseFile(f);
  ShowMessage(StrPas(s));
  FreeMem(s, 8);
end;