function StringToWideStringEx(const S: AnsiString; CodePage: Cardinal): WideString;

TntSystem

This is function TntSystem.StringToWideStringEx.