Dein Fehler liegt imho darin, das Du write nicht das korrekte Dateihandle übergibst. Folgendes sollte funktionieren:
write (@Eintrag, TESTFORMAT);
Der Teufel steckt mal wieder im Detail, diese Zeile wars.
Das Problem ist behoben, vielen Dank!
Anatol