Frage zu BlockWrite

[Quick_silver]

Delphi-Quellcode:

  for j:=0 to Length(buf)-1 do
    BlockWrite(f, buf[j], 1,r);

Klappt, aber
BlockWrite(f, buf, Length( buf),r); schriebt mir nur Mist in die datei.

Liegt es daran das beim 2. noch Inbfos über das Array mit geschrieben werden?