DrawGrid. Заполнение ячейки цветом.

[Larboss]

Имеется DrawGrid на форме. Задача такая: нужно зарисовать ячейку определенном цветом.

Делаю так:

procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  DrawGrid1.Canvas.Brush.Color := ClBlack; // Установка цвета кисти
  DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(ACol, ARow)); // Заполнение цветом текущей выбранной ячейки
end;

Все вроде бы хорошо, но проблема в том, что происходит очистка канвы, как только выбирается ячейка, т.е. цвет стирается. Как сделать, чтобы он не стирался? Неужели в процедуре выше только помечать какие ячейки закрашивать, а в таймере делать собственно закрашивание? Вроде должен быть "нормальный путь".

[Аватар]

OnDrawCell