UTF8 String auf Datei mit writeln?

[HPW]

Was mache ich da falsch:

Delphi-Quellcode:

var
   linestr   : String;
   utfstr    : UTF8String;
   outstr    : String;
   Fin       : TextFile;
   Fout      : TextFile;

...
...

     while not Eof(Fin) do
       begin
         Readln(Fin, linestr);
         utfstr := AnsiToUTF8(linestr);
         outstr := '['+utfstr+']';
         Showmessage(outstr);
         Writeln(Fout, outstr);
       end;
...

In der Messagebox sehe ich für den String 'ABCDÄÖÜßäöü€@' dieses '[ABCDÄÖÜßäöü€@]'
aber in der Ausgabedatei ist es '[ABCDÄÖÜßäöü€@]'?