TntSysUtils Namespace
function WideExtractFileExt(const FileName: WideString): WideString;
TntSysUtils
TNT-WARN ExtractFileExt