E/AFehler 433. bei Append TextFile

[egentur]

Hallo zusammen

Ich schreibe Daten in ein TextFile wie folgt:

Procedure xy(hlog : string);
var EFile:TextFile;
begin
{$I-}
SCAN: AssignFile(EFile,'xy.bin');
Reset (EFile);
{$I+}
if IOResult=2 then begin
Rewrite (EFile);
end;
Append(EFile);
Writeln (EFile,hLog);
Flush(EFile);
CloseFile(EFile);
end;

Das funktioniert auch soweit einwandfrei !

Nur auf einem bestimmten Rechner bringt mir EurekaLog sporadisch einen

E/A Fehler 433.

an der Stelle Append(EFile)

ich kann aber nirgends eine Fehlerbeschreibung zu 433. finden

Danke für eure Hilfe