Fehler beim überschreiben von Datei

[EWeiss]

Wenn ich meine Datei die vorher mit hFile geschlossen wurde
überschreiben will bekomme ich einen EInOut Error

Delphi-Quellcode:

  myFile := SKAERO_SaveFileDialog(MainHandle, 'MidiTracker files (*.mtf*)|*.mtf*', 'mtf', 'MidiTrackerFile');
  AssignFile(f, myFile);
  Rewrite(f);

Der Fehler tiritt in der Zeile Rewrite(f); auf.

Was mache ich falsch?

Geschlossen wird es korrekt.

Delphi-Quellcode:

procedure FClose(var hFile: Cardinal);
begin
    if hFile <> 0 then
      CloseHandle(hFile);

    hFile := 0;

end;

gruss