Pasar una variable a una consulta

[roman]

EDn el texto de la consulta pon el parámetro o variable antecedido de dos puntos:

Código SQL [-]
SELECT CODI, ID_COLLA, ANIO FROM CAR0006
WHERE ANIO = :año
ORDER BY CODI

Al momento de abrir la consulta, sustituyes el parámetro por el valor deseado:

Código Delphi [-]
Query1.ParamByname('año').AsInteger := A;
Query1.Open;

En ParamByName indicas el nombre que le hayas puesto al parámetro (que suponogo no puede llevar ñ pero eso ya es otra cuestión ) y usas AsXXX según el tipo de datos que requieras (AsInteger, AsString, As Boolean, AsFloat, etc.)

// Saludos