Source position: icon.pas line 243
function IconControlA(
Icon: PDiskObject;
const Tags: PTagItem
):ULONG;