TntSysUtils Namespace
function ValidCurrencyStr(const S: WideString): Boolean;
TntSysUtils
TNT-WARN StrToCurrDef