Wieder TextDatei diesmal binär

[EWeiss]

Kann mir kurz jemand nen tip geben wie ich meine
werte binär in eine TextDatei schreibe?

Delphi-Quellcode:

  // Datei schreiben
  AssignFile(f, MidiFile);
  Rewrite(f);

  for IntA := 1 to CurrentByte do
  // Was fehlt hier... vor "IntA, Bytes[IntA]"
  // Seek oder was auch immer..

  Closefile(f);

gruss