如何加快DrawGrid单元格的绘制（Delphi）

Question

我有一个600 x 600个细胞的DrawGrid。 每个Cell都会根据其Value值绘制颜色。 显示网格需要大约1秒钟。

问题是：如何改进，所以绘图需要更少的时间？

OnDrawCell事件如下所示： （MyVal是Col / Row值，取自二维数组）

...
MyVal := MyArray[ACol, ARow];
case MyVal of 
  0: Drawgrid1.Canvas.brush.Color := clRed;
  1: Drawgrid1.Canvas.brush.Color := clBlue;
  ...
end;
Drawgrid1.Canvas.Brush.Style := bsSolid;
Drawgrid1.Canvas.fillrect(Rect);

谢谢。

克劳斯