Source position: icon.pas line 366
function IconControlA(
icon: PDiskObject;
const tags: PTagItem
):LongWord;