BVA11, такое выделение (рисуется прямоугольник) делается функцией которой нет не в одном из элементов.
Можно воспользоваться прямоугольником: code_34105.txt
и можете еще посмотреть пример идущий с программой ElementsdelphiExampleToolsPolymorph.sha, думаю пригодится.