Ind := _DoData(PM.Count-1);
Arr._Get(Ind,dt);
bmp := PBitmap(dt.idata);
Как можно заметить, то читается индекс последнего пункта меню и добавляется нужная иконка из массива по полученному индексу.
Но в довершение хочу сказать, что в этом меню, я ничего переделывать не буду, а тем более алгоритм.