можно любой простой сложный ... главное понятным чтобы был
Что же здесь непонятного?
Функция вызывается всякий раз, когда перерисовывается очередная ячейка Grid.
На входе параметрами ACol и ARow указываются индексы колонки и строки той ячейки,
которая в данный момент прорисовывается.
Параметр Rect указывает координаты этой ячейки на канве.
Приведённый обработчик определяет, является ли эта ячейка во второй строке и второй колонке.
Если это так, то она устанавливает цвет кисти красным, а затем заливает прямоугольник,
занимаемый ячейкой установленным цветом кисти. Всё!