Wie kann ich Schreibweise im Filestream optimieren ?

[Gandimann]

Thanks Friends,
ich habe hin gegriegt :

Delphi-Quellcode:

procedure TForm1.btn2Click(Sender: TObject);
 var
  buf: array[0..10] of Byte;
   fs: TFileStream;
begin
    fs := TFileStream.Create('C:\Test1.file',
                 fmCreate or fmOpenWrite or fmShareDenyWrite);
  buf[0] := $4b;
  buf[1] := $4f;
  buf[2] := $52;
  buf[3] := $46;
     try
    fs.Position := 23;
    fs.WriteBuffer(buf, 4);
    fs.Position := 0;
    buf[0] := $01;
    buf[1] := $00;
    buf[2] := $01;
    buf[3] := $14;
    fs.WriteBuffer(buf, 4);
    fs.Position := 4;
     buf[0] := $00;
    buf[1] := $00;
    buf[2] := $29;
    buf[3] := $64;
    fs.WriteBuffer(buf, 4);

  finally
    fs.Free;
    ;
  end;
end;