Delphi XE, Utf8 in Textdatei

[FrankJ28]

Hallo Forum,
hat jemand eine Tip für mich, wie ich einen String als Utf8-Zeichenkette in ein Textfile bekomme.

Code:

writeln(TextDatei,AnsiToUtf8(MeinString));

funktionierte bis Delphi 2007 prima. Da MeinString nun Unicode ist und writeln offensichtlich nur noch ANSI ausliefert ....

Danke für jeden Tip
Ciao
Frank