По-моему, OnDrawCell вызывается для
всех видимых ячеек (и в примере загружаются несколько ячеек, начиная с первой). Выделенная ячейка имеет координаты Col,Row, так что выполните обычное сравнение:
Код:
if (ACol = Col) and (ARow = Row) then рисуем нашу ячейку