[marcoszorrilla]

Aquí tienes un ejemplo:

procedure TfrConClientes.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if DmVil.CliBaja.Value = True then
   begin
   DBGrid1.Canvas.Brush.Color :=clInfobk;
   Dbgrid1.Canvas.Font.Style:=[fsBold];
   DBGrid1.Canvas.Font.Color:=ClBlack;
   DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
   end;
end;

Un Saludo.