How do I achieve what I could do in Delphi 1.0 viz

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

begin
  if (Condition) then
    DBGrid1.Canvas.font.color := clRed
  else
    DBGrid1.Canvas.font.color := clYellow;
  DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;
    ........................................
The DefaultDrawColumnCell procedure seems to only color the cell of
the record following the change in the condition when I try a similar
operation.  Can anyone help with the right code in the right place?

Thanks

Richard Tully