>>233
レスが遅くなってごめんなさい．

デフォルトの場合3バイトだけ書き込むことはできません．
必ず128バイト単位になります．

たとえば以下の例だと（イベントハンドラだけ書きます）

procedure TForm1.Button1Click(Sender: TObject);
var
F: File;
i: longint;
aFileName: string;
begin
aFileName := ChangeFileExt(Application.ExeName, '.dat');
AssignFile(F, aFileName);
try
Rewrite(F);
for i := 1 to 10 do
BlockWrite(F, i, sizeof(i));
finally
CloseFile(F);
end;
end;

sizeof(i)の値は4なので一見40バイト書き出されるように見えますが
実際には5120バイト書き出されます．
（レコードサイズが128で1回につき4レコード＝512バイト書き出しています）