Pregunta sobre DefaultDrawColumnCell(rect,DataCol,Column,State);

[ses27coves]

Hola de nuevo. tengo un apregunta. Porque al aplicar el procedimiento de abajo aparte de conseguir cambiar el color de la letras de la fila con un valor si en el campo verificado pone si, tambien se muestra la fila "activa, actual" en negrita?

Código Delphi [-]
procedure Tfrprincipal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if Column.Field.Dataset.FieldbyName('verificado').asstring = 'si' then
       dbgrid1.Canvas.Font.Color:= clHotLight;
    dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

El problema es que no quiero que este en negrita i no se de donde me viene.