Suche TNT Befehl:Einlesen von Widestring[Unicode] aus Datei

[Tillie]

Hallo,

Wie kann ich aus einer Datei ein Widestring einlesen, der dabei mit Unicode (Türkische Buchstaben) gefüllt wird? Mit Read funktioniert das ja nicht:

Delphi-Quellcode:

var
  Wort:WideString;
  Datei:TextFile;

begin
SetCurrentDir ('D:/');
AssignFile(Datei, 'Datei.txt'); //Datei.txt ist im Unicode Format 
Reset (Datei);
Read (Datei, Wort); // Wort enthält auf diese Weise ja keine türkischen Buchstaben/Unicode sondern ANSI-Zeichensalat
CloseFile(Datei);

Für Türkische Sprache im Programm greife ich momentan ansonsten auf die TNT Units der Version 2.3.0 zurück (manuell), habe aber leider darin bisher keine Entsprechung für Read gefunden.

Zusammengefasst: Ich suche also einen Befehl (aus den TNT Units) um aus einer Unicode Datei, ein Wort in Unicode Zeichen in einem Widestring einzulesen, um diesen anschließend innerhalb des Programms weitergeben zu können.

Kann mir jemand weiter helfen?

Liebe Grüße,
Tillie