TntSysUtils Namespace
function TntStrToCurr(const S: WideString): Currency;
TntSysUtils
TNT-WARN StrToCurr