Source position: stddlg.inc line 475
function SelectDir(
var ADir: DirStr;
HistoryID: Byte
):Boolean;