Dateiwert an fester Bytestelle auslesen

[Namenloser]

Delphi-Quellcode:

var
  FileStream: TFileStream;
  ReadByte: Byte;
begin
  FileStream := TFileStream.Create('c:\datei.dat', fmRead);
  try
    FileStream.Seek(42, soFromBeginning);
    FileStream.Read(ReadByte,1);
  finally
    FileStream.Free;
  end;
  ShowMessage(IntToStr(ReadByte));
end;