Guck in der Hilfe nach was E/A Fehler 103 ist. Wenn ich mich nicht irre ist das "Datei schon geöffnet" oder "Datei noch nicht geöffnet".
Das passiert dir dann, wenn du die dateivariable global deklarierst und die datei an einer anderen Stelle öffnest, aber nicht wieder schließt.
Eine Fehlerbehandlung wäre auch sinnvoll:
Delphi-Quellcode:
begin
AssignFile(Datei,'neu01.txt');
{$I-}
Reset(Datei);
{$i+}
if IOResult = 0 then
begin
writeln(Datei,'text1');
writeln(Datei,'text2');
CloseFile(Datei);
end
else
ShowMessage(SysErrorMessage(GetLastError));
Dann weißt du was los ist.
Warum wird eigentluich fast immer auf eine konsequente Fehlerbehandlung verzichtet? Damit kann man solche Threads von vorneherein vermeiden.