Избавиться от мерцаний в DrawCell

Правильно укажите границы используемого канваса

if Row = 0 then
begin
  DrawGrid1.Canvas.Font.Color := clRed;
  DrawGrid1.Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(Col));
end;

Другое по теме:

• Заполнить Canvas рисунком с рабочего стола
• Как вставить изображение в компонент TListBox
• Вывод текста на родительском элементе управления