TntSysUtils Namespace
function WideExtractRelativePath(const BaseName: WideString; const DestName: WideString): WideString;
TntSysUtils
TNT-WARN ExtractRelativePath