TntSysUtils Namespace
function WideChangeFileExt(const FileName: WideString; const Extension: WideString): WideString;
TntSysUtils
TNT-WARN ChangeFileExt