Geht auch einfacher:
Delphi-Quellcode:
f := TFileStream.Create(MidiFile, fmOpenReadWrite);
f.Write(Bytes[1], CurrentByte{*SizeOf(Byte)});
f.Free;
Zitat:
Aber leider funktioniert es nicht kann nur vorhandene Dateien öffnen.
Dann musst du fmCreate angeben statt fmReadWrite.