si tenes una TTable enlazada via un TDataSoruce al TDBGrid, basta con que pongas la propiedad filter a algo como:
'[año] = 2004'
y luego filtered a true.
ojo, que esto no es para nada óptimo (con c/s, en local parece ser lo mejor).
En el caso de c/s, es mejor usar un TQuery y agregar tu "filtro" como predicado del mismo.... algo como:
Código Delphi
[-]
query1.sql.text = 'Select * from tabla where anio = :anio';
query1.ParamByName('Anio').AsInteger := 2004;
query1.Open;
Hasta luego.
[/delphi]