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