[marcoszorrilla]

Mira este ejemplo que no tengo tiempo para más, a ver si te sirve:

procedure TfrFactAlbaranes.RejaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

     If Column.FieldName='Marcado' then
     Begin

     Reja.Canvas.Brush.Color :=ClAqua;
     Reja.Canvas.Font.Color:=ClRed;
     Reja.Canvas.Font.Style:=([fsBold]);
     Reja.DefaultDrawColumnCell(Rect,Datacol,Column,State);    
     end;

Un Saludo.