string to UTF 16

[Master_Jochen]

Danke für eure tips.
Ich habe jetzt mal

Delphi-Quellcode:

function AnsiToUtf16(const s: AnsiString): WideString;
begin
  Result := s;
end;

versucht , also sprich meinen string damit umgewandelt dann in ein memo geschrieben und dann das memo gespeichert aber das geht scheinbar nicht.
das memo scheint alles wieder umzukehren da ein echtes utf 16 so wie ich es geladen hatte nicht im memo angezeigt werden konnte aber dieses sehr wohl. mmh ich muss do wohl noch weiter rumprobieren,