IOResult stimmt nach WriteLn nicht!

[Luckie]

@Hansa: Ich hatte eben, al ich den Democode geschrieben habe, allerdings Exceptions von Writeln bekommen, weil ich die Dateivariable vergessen hatte. Das heißt, esw ird doch eine Exception in manchen Fällen ausgelöst:

Delphi-Quellcode:

var
  f: Textfile;
begin
  AssignFile(f, ChangeFileExt(ParamStr(0), '.txt'));
{I-}
  Rewrite(f);
{I+}
  if IOResult = 0 then
  begin
    try
      Writeln(f, 'Test');
    except
      on E: Exception do
        ShowMessage(E.Message);
    end;
    CloseFile(f);
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));