Refresco de DBGrid con post event

[fedelphi]

Gracias jhonny, lo hice tambien de esa forma y nada, el codigo que incorpore fue

Código Delphi [-]
  if eventname='lote_actualizado' then
  begin
    showmessage('actuliza acumuladoxlote');
    ibtacumuladoxlote.Close;//tabla a visualizar en el dbgrid
    showmessage('ya realizó acumuladoxlote.close');
    ibtacumuladoxlote.Open;
    showmessage('ya realizó acumuladoxlote.open');
    //ibtacumuladoxlote.Refresh;
  end;

a los mensajes los muestra, el dbgrid queda en blanco, luego muestra otra vez los datos, pero sin actualizar, en cambio si lo actualiza en la pc desde donde se ingresan los datos.
Me parece que puede ser el modo en que actualizo los datos, a ver si sirve esto que hice o esta mal, a la tabla la actualizao con un trigger before insert, al ir introduciendo registros voy sumandole 1 al que corresponda en IBTAcumuladoxlote y a la tabla que dispara el trigger le escribo los datos asi

Código Delphi [-]
try
              if not modulodatos.IBTransaction1.Active then
                modulodatos.IBTransaction1.StartTransaction;
              if not Modulodatos.IBTAlmacen.Active then
                Modulodatos.IBTAlmacen.Active:=True;
              modulodatos.IBTAlmacen.Append;
              modulodatos.IBTAlmacen.FieldByName('ID_ALMACEN').AsInteger:=1;
              modulodatos.IBTAlmacen.FieldByName('NRO_TICKET').AsString:=ECodigo.Text;
              modulodatos.IBTAlmacen.FieldByName('ID_SUCURSAL').AsInteger:=sucursal_nro; //sucursal_nro es una variable global definida en ppal para pasar el numero de sucursal entre forms
              modulodatos.IBTAlmacen.FieldByName('ID_TICKET').AsInteger:=id_ticket;
              modulodatos.IBTAlmacen.FieldByName('FECHA_PRESENTACION').AsDateTime:=Date;
              modulodatos.IBTAlmacen.FieldByName('MONTO').AsFloat:=Monto;
              modulodatos.IBTAlmacen.FieldByName('FECHA_INGRESO').AsDateTime:=Date;
              modulodatos.IBTAlmacen.FieldByName('NRO_CAJA').AsInteger:=RGCajas.ItemIndex+1;
              modulodatos.IBTAlmacen.Post;
              modulodatos.IBTransaction1.CommitRetaining;
              
            except
              on E:Exception do
              begin
                modulodatos.IBTransaction1.RollbackRetaining;
                showmessage('Error al insertar en base de datos. '+e.Message);
              end;
            end;

puede ser algun problema en como guardo los datos? Gracias!!