Also die Utf16ToAnsi Funktion liefert bei mir den gleichen Text wie den Eingabetext zurück.
Delphi ist so "klug" und wandelt konvertiert automatisch einen "string" in einen "WideString". Daher musst du das wie folgt machen:
Delphi-Quellcode:
function IchWillNenNormalenString_InhaltIstAberUTF16(input: AnsiString): AnsiString;
begin
result := Utf16ToAnsi(AnsiAsUtf16(input));
end;