function WideSelectDirectory(const Caption: WideString; const Root: WideString; var Directory: WideString): Boolean;

TntFileCtrl

TNT-WARN SelectDirectory