function WideStringToStringEx(const WS: WideString; CodePage: Cardinal): AnsiString;

TntSystem

This is function TntSystem.WideStringToStringEx.