请帮我矫正以下程序(100分)

在dbgrid中加入以下一段程序，目的在与，将满足字段aa=bb条件的一行数据，在dbgrid中
以不同的颜色显示出来，但遇到一些麻烦，当dbgrid.columns{0}....中不作任何设置时
本程序通过，但加入dbgrid.column[0].fieldname:=字段后，无法以不同颜色显示出来，
，我摸索了两天也解决不了，请各位懂的高手指教以下，谢谢！

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin

DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.Brush.Color:=clgray;

if query1.FieldByName('aa').ASSTRING='bb' then
BEGIN
DBGrid1.Canvas.TextRect(Rect,rect.Left,rect.Top,Field.AsString);
END
end;
jony1

将dbgrid1.Canvas .textrect(Rect,rect.Left,rect.Top,Field.AsString);
换成DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
试试看

接受答案了.

>>jony1
你比烂泥大方多了