Foros Club Delphi - Problema con el font de un dbgrid

Buenas noches amigos foreros antes de enviar este post busque en el foro como en google pero no encontre una solucion a mi problema
Antes trabajo con Delphi , MDO y firebird, tengo una aplicacion de colas en la cual dentro de un form tento un dbgrid asociado a un query, el dbgrid lo puse a la derecha del form y aumente en vista diseño el font a 30 para que el texto sea muy lejible, en el form tambien tengo un mdoevent que ante un evento generado en la base de datos se activa y actualizo el query y por ende los datos mostrados en el dbgrid
MI problema es que no se porque de manera aleatoria cuando recibe un evento el alto de las filas del dbgird se reduce y el texto de las filas solo se ve la parte superior
el codigo en el mdoevent en delphi es el siguiente:

Código:

procedure TF_Principal.MDOEvents1EventAlert(Sender: TObject;

  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);

begin

IF Eventname='NUEVO C1' then

begin

  modulo_db.MDOQ_Detalle.Close;

  modulo_db.MDOQ_Detalle.ParamByName('codigo').AsString:='C1';

  modulo_db.MDOQ_Detalle.Open;

 panel4.caption:=modulo_db.mdoq_DETALLE.FieldByName('NOMBRE').AsString+' > '+modulo_db.mdoq_DETALLE.FieldByName('ticket').AsString;

 mdosp_fichas.Prepare;

mdosp_fichas.ParamByName('nro_recibo').AsInteger:=modulo_db.mdoq_DETALLE.FieldByName('nro_recibo').AsInteger;

mdosp_fichas.ExecProc;

modulo_db.Transaccion.CommitRetaining;

  modulo_db.mdoq_listado.Close;

  modulo_db.mdoq_listado.Open;

     P:=0;

     M:=0;

  TimerBlink.Enabled:=TRUE;

  TimerSound.Enabled:=TRUE;



      FValor:= Trim('C1');

  modulo_db.mdoq_listado.Locate('Codigo', 'C1', []);



end;

end;

y deberia mostrar algo asi
C1
C2
C3

pero a veces muestra asi:

y la verdad nose como hacer para que no pase eso pues el usuario me observo ese error
Si alguien sabe como puedo solucionar o algun comentario estare muy agradecido amigos foreros