untypisierte dateien - warum eine zugriffsverletzung(simpel)

[The-X]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var datei : file;
    Buf: array[0..3] of Char;  <- 3 und nicht 4
    countt :integer;
    tmp : string;
    i : integer;
begin

assignFile(datei,'asd.wav');
// evtl. Filemode setzen
Filemode:=fmopenread;
reset(datei,1); // hier muss 1 stehen, da recordsize standardmäßig auf 128 bytes steht

BlockRead(datei,buf,sizeof(buf),countt);

tmp:='';
for i:=0 to 3 do
  begin
  tmp:=tmp+buf[i];
  end;

showmessage(inttostr(countt));
showmessage(tmp);

closefile(datei);

end;