TntSysUtils Namespace
function StrUpperW(Str: PWideChar): PWideChar;
TntSysUtils
TNT-WARN StrUpper TNT-WARN AnsiStrUpper