TntSysUtils Namespace
function WideExtractFilePath(const FileName: WideString): WideString;
TntSysUtils
TNT-WARN ExtractFilePath