prueba, en vez de
Código Delphi
[-]frDatos.tbEqu.FieldByName('Estado').AsInteger
de hacer
Código Delphi
[-](sender as TDBGrid).DataSource.DataSet.FieldByName('...
.
Si no funciona, buscaria por el foro '.ActiveRecord' (o '.currentrecord', uno de dos), que es el registro realmente activo en el momento de pintar.