Fehler bei TFileStream.ReadBuffer mit Buffer size

[XoRiC]

Hallo Forum,

ich habe ein Problem mit meinem FileStream, das ich mir nicht erklären kann.
Ich möchte aus einer 40 byte großen Datei die ersten 9 byte in einen Buffer einlesen.

Hier ist mein Code:

Delphi-Quellcode:

procedure Test;

  var buf: array of byte;
      buf_headsize: integer;
      FS: TFileStream;

  const FN: String = '.\Test.dat';

begin
  FS := TFileStream.Create(FN, fmOpenReadWrite);
  buf_headsize := 9;

  if (FS.Size >= buf_headsize) then begin
    // FS.Size = 40            
    SetLength(buf, buf_headsize);
    showmessage(inttostr(High(buf))); // liefert 8

    try
      FS.Seek(0, soFromBeginning);
      FS.ReadBuffer(buf, buf_headsize); // manchmal gibt es hier schon eine Exception
    finally
      showmessage(inttostr(High(buf))); 
      // lieferte schonmal -1, auch Werte wie 12 oder 9095 wurden hier angezeigt - brachte auch schon Exceptions
    end;

  end;
end;

Auf die Datei wird sonst nirgendwo im Code zugegriffen, sie liegt fest im Projektverzeichnis und wird nicht verändert.
Der FileStream wird auch korrekt initialisiert, immerhin ist ja der Wert FS.Size = 40 abrufbar.

Durch FS.ReadBuffer dürfte sich doch außer dem Inhalt des Arrays nicht ändern, die Größe sollte doch gleich bleiben?
Kann sich diesen Fehler (Kommentare im Code) jemand erklären?

NACHTRAG:
ich habe jetzt versucht, das Array buf mit fester Länge zu erzeugen:
var buf: array [0..8] of byte; So tritt kein Fehler auf. Allerdings wäre mir ein dynamisches Array sehr viel lieber, da ich es danach noch weiterverwenden möchte.

Vielen Dank wie immer für eure Hilfe,
Gruß Xoric