Zeoslib TZTables

[Casimiro Noteví]

Pues entonces más fácil, sin condicionantes:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn; State: TGridDrawState);  
begin
  DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
  DBGrid1.Canvas.Font.Color := clRed;
  DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;

Y nada más