suma total de todos los movimientos en movimientos

[roman]

Me parece que en la consulta, donde dice

'where equipo:=...'

debe decir

'where equipo=...'

Es decir, sobran los dos puntos. Por la forma en que haces la consulta no estás usando parámetros en el texto SQL.

Pero vamos a otro asunto.

Fíjate en una cosa: el cálculo que haces depende en el fondo, no de la fila seleccionada en la rejilla mediante el 'click', sino del registro actual del dataset que alimenta a la rejilla (que cambia conforme seleccionas una u otra fila en ésta).

Entonces, en lugar de atacar el problema por el lado de la rejilla podrías hacerlo por el lado del dataset que la alimenta usando su evento OnAfterScroll, que se genera cada vez que cambia el registro actual.

Pero por otro lado creo que estás trabajando de más pues has olvidado la propiedad DataSource del AdoQuery que evitas que hagas este cálculo cada vez.

Para fijar ideas vamos a suponer que tienes estas dos tablas:

equipos = (id, nombre)
movimientos = (id, equipo_id, importe)

con un AdoTable, digamos adoEquipos, enlazado a la tabla equipos y que alimenta a la rejilla. Vamos a suponer que adoMovimientos es la componente AdoQuery que usas para el cálculo:

Código Delphi [-]
AdoQuery.Sql.Text := 'select sum(importe) from movimientos where equipo=:equipo_id';

Fíjate que en el texto de la consulta sí pongo los dos puntos (pero después del signo '=') para indicar que equipo_id es un parámetro.

Siguiendo tu metodología, lo lógico sería sustituir el valor del parámetro equipo_id cada vez que cambias de registro:

Código Delphi [-]
adoMovimientos.ParamByName('equipo_id').AsInteger := adoEquipos['id'];

Pero es innecesario ya que puedes alimentar este parámetro de manera automática asignando

adoMovimientos.DataSource := dsEquipos

donde dsEquipos sería el DataSource enlazado a adoEquipos. La asignación la haces en tiempo de diseño.

De esta manera ya no tienes que hacer más nada. Automáticamente, cuando te muevas por la rejilla que muestra los equipos, el parámetro de adoMovimientos se irá llenando solo y tendrás listo su valor.

¿Cómo obtienes ese valor?

Bueno, dado que la consulta regresa una sóla fila con un sólo campo simplemente los tomas con

adoMovimientos.Fields[0].AsInteger

o bien conectas otra rejilla a adoMovimientos a través de un DataSource.

// Saludos