Delphi6中， DBGrid控件的OnDrawColumnCell方法到底什么时候会触发

触发OnDrawColumnCell后，我进行单步调试，貌似程序就在里面进行死循环了，不停执行，为什么。
另
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBgrid1.DataSource.DataSet.FieldByName('ORG').AsString = 'SUP' then
DBgrid1.Canvas.Font.Color := clGreen;
end;
这个是我想实现固定字段整行变色的代码，为什么运行以后没有变色

在窗口被遮挡等情况下都会重绘，你的开发环境遮挡了控件就会反复触发。所以调试这样的代码，最好不要单步，而是增加一点调试输出。
在你这段代码中没有看到绘制的逻辑，所以它肯定不奏效了。