Да ничего особенного, пока только закомментировал тело SetIcon, вечером посмотрю, попробую добавить игнорирование отсутствия данных иконки в ресурсах, т.е. нужно - ставь иконку, не нужно - не ставь.

Добавил в функцию условие 'if Control.Icon = 0 then exit;'.
Может, не слишком профессионально, ибо я в паскале не силен, но то, то я хочу, делает.