UTF-8 Datei einlesen, umwandeln in ANSI...statt Umlaute sind Fragezeichen vorhanden

[juergen]

Hallo zusammen,

ich lese unter Delphi XE eine UTF-8 Datei ein (wird in Notepad als UTF-8 Datei erkannt).
Diese Datei muss ich als ANSI-Datei neu abspeichern. Dabei sollen die Umlaute erhalten bleiben.

Folgenden Code nutze ich:

Delphi-Quellcode:

        slFile.LoadFromFile(dlgOpen1.Filename);
        for i := 0 to slFile.Count - 1 do begin
          slFile.Strings[i] := Utf8ToAnsi(slFile.Strings[i]);
        end;
        slFile.SaveToFile(dlgOpen1.Filename);

Wenn ich die neu erstellte Datei mit Notepad öffne, sehe ich, dass es eine ANSI Datei ist.
Aber anstelle der Umlaute stehen Fragezeichen in der Datei.

Weiß hierzu jemand Rat?

Vielen Dank schon mal vorab!