Anfänger Frage zu Byteweisem auslesen

[Pr0g]

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  FS: TStream;
  i: Integer;
begin
  FS := TFileStream.Create('datei.dat', fmOpenRead);
  try
    FS.Position := 3;
    FS.ReadBuffer(i, 4);
  finally
    FS.Free;
  end;
end;

Edit: Hm, zu lahm