Al final lo que hice fue que dentro del evento OnDataChange del datasource que esta asociado a la TADOQuery puse el siguiente codigo:
Código Delphi
[-]
q2.close;
q2.parambyname('CAMPO1').asInteger:= q1.fieldbyname('CAMPO1').asInteger;
q2.open;
Que lo que hace es que se cierra la TQuery, se le pasa el parametro y se abre ;asi que cuando en la dbgrid que esta asociada a la consulta TADOQuery cambias de fila en la consulta TQuery te saldria el dato resultante.
Gracias a los que contestaron.