IOResult stimmt nach WriteLn nicht!

[amigage]

Kann es sein, dass diese Variante nicht unter Windows Vista funktioniert?
Speziell interessiert mich die Abfrage, ob z.B. in den Programmeordner geschrieben werden kann.

Hier einmal die Kurzvariante zum Testen:

Delphi-Quellcode:

var
  F : TextFile;
  tmp : integer;
begin
    try
        AssignFile(F, Ordner + Dateiname);
{$I-}
        ReWrite(F);
{$I+}
        tmp := ioresult;
        if tmp = 0 then
        begin // erfolgreich
          showmessage('ioresult='+inttostr(tmp));
          Result := true;
          CloseFile(F);
        end
        else
        begin // nicht erfolgreich
          showmessage('peng! ioresult='+inttostr(tmp));
          Showmessage('In den angegebenen Ordner kann nicht geschrieben werden!');
          Result := false;
        end;
    finally
      If FileExists(Ordner + Dateiname) then
         DeleteFile(Ordner + Dateiname);
    end;
end;

Bei den gewohnten Verzeichnissen, wie CD-Laufwerke, nicht beschreibbare Medien funktioniert es. Nur nicht unter Vista, wenn man als Nicht-Admin versucht ins Programmverzeichnis zu schreiben. Die angegebene Datei ist vor dem CloseFile() auch nicht vorhanden, obwohl ioresult=0 zurück gegeben wurde...

Ich verzweifle schon fast...