dbgridheh在画的时候不断闪烁，如何解决比较好！谢谢！

dbgridheh在画的时候不断闪烁，如何解决比较好！谢谢！
我在onDrawColumnCell写入代码，控制第三个单元格的颜色，屏幕闪烁的很厉害，连
按钮都看不见了！如何解决呀！帮帮忙！谢谢大家！
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  IF ADOQuery1.FieldByName('Bj').AsString='A' then
    DBGrideh1.Columns[2].Font.Color := clBlue;
  IF ADOQuery1.FieldByName('Bj').AsString='B' then
    DBGrideh1.Columns[2].Font.Color := clRed;
  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;