Wieder TextDatei diesmal binär

[EWeiss]

Delphi-Quellcode:

  // Datei schreiben
  f := TFileStream.Create(MidiFile, fmOpenReadWrite);

  for IntA := 1 to CurrentByte do
    f.Write(Bytes[IntA], CurrentByte);

  f.Free;

Allerdings hab ich hier ein verständnis problem

Meine Datei wird 25KB groß dürfte aber nur etwa max 1 KB sein.
Wenn ich in die Datei schaue fällt mir auf das die Datei abhängig von IntA jedesmal
komplett neu eingefügt wird.

Was ist da falsch bei mir ?
CurrentByte sind 164.

PS:
Geht damit auch nicht
So wie es aussieht kann ich damit nur Dateien editieren die Existieren.
Oder aber ich verwende ein falsches Flag.

gruss