Estimado GINMARMENOR.
Le propongo otra opción...
Código Delphi
[-]
ibQueryMotivos.close;
IbQueryMotivos.Clear;
IbQueryMotivos.text:='Select * From where Position(Cast(año As Varchar(4)), :Lista_Anos)>0';
IbQueryMotivos.ParamByName('Lista_Anos').AsString:='1925|1955|...|...|...';
IbQueryMotivos.open;
Aquí solo debería generar la lista de años junto con un separador...Asumo que el año es de 4 digitos...
Saludos cordiales