Du benutzt schon die Init-Funktion nicht richtig.
Hast du dir die Doku in der
MSDN dazu angeschaut?
Beachte, was die Ausgabe und was die (optionalen) Eingabeparameter sind.
Delphi-Quellcode:
...
var
Source : string;
UnicodeString: TUnicodeString;
begin
Source := 'TestString';
FillChar(UnicodeString, SizeOf(UnicodeString), 0);
RtlInitUnicodeString(@UnicodeString, PWideChar(Source));
end;