Unicode in datei schreiben

[remie]

Hi leute

ich muss so ziemlich jede sprache die es Gibt mit ihren Zeichen in eine Datenbank schreiben können,
die Datenbank ( Mysql ) kann ja utf-8 ohne Probleme aber Delphi kann es ja nicht so einfach.
da habe ich hier im Forum die "TntUnicodeControls" gefunden.

Wenn ich jetzt hingehe und an meinem Rechner das Eingabeschema auf Koreanisch stelle, kann ich auch wunderbar denen ihre Zeichen tippen. zum Testen ob das alles klappt wolle ich das eingegebene mal in eine Datei schreiben.
Wenn ich die dann aber die Datei schreibe und danach wieder auslesen will kommen nur . raus.

Code:

procedure TForm1.Button2Click(Sender: TObject);
var f     : System.text;
    daten : WideString;
    i     : Integer;
begin
  SaveDialog1.Execute;

  if NOT fileexists(SaveDialog1.FileName) then begin
    IF NOT fileexists(SaveDialog1.FileName) THEN BEGIN
      SYSTEM.ASSIGN(f,SaveDialog1.FileName);
      SYSTEM.REWRITE(f,SaveDialog1.FileName);
      SYSTEM.CLOSE(f);
    END;
    SYSTEM.ASSIGN(f,SaveDialog1.FileName);
    SYSTEM.APPEND(f);
    for i:=0 to tntedit1.Lines.Count-1 do begin
      WRITELN(f,tntedit1.Lines.ValueFromIndex[i]);
    end;
    SYSTEM.CLOSE(f);
  end;
end;

das is der Button der die Datei schreibt. muss ich da noch irgendwas setzen oder so ?

Danke mal für die Hilfe