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