[*Caro*]

Hola, debes utilizar el evento OnDrawColumnCell.

Código Delphi [-]
procedure TForm1.DBGridDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Query.FieldByName('campo').AsString='algo' then
  begin
   DBGrid.Canvas.Brush.Color := clRed;
   DBGrid.Canvas.Font.Color := clWhite;
 
   DBGrid.DefaultDrawColumnCell(rect,DataCol,Column,State);
  end;

puedes buscar también el foro hay mucho sobre tu pregunta.

Saluditos