Hallo,
mit FileCreate() öffnest du die Datei auch gleichzeitig - und sperrst sie für nachfolgende Benutzung. Mache es besser so:
Delphi-Quellcode:
var
tf: TextFile;
fn: TFileName;
begin
// ...
AssignFile(tf, fn);
if FileExists(fn)
then Append(tf)
else Rewrite(tf);
// ...
Grüße vom marabu