Realmente la sentencia es:
Código Delphi
[-]Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT fecha');
Query1.Sql.Add('FROM fichero');
Query1.Sql.Add('WHERE fecha + 365 >= :afecha);
Query1.Sql.parameters('afecha').AsDate := date();
Query1.Open;
lo que sigue NO funcionando es fecha + 365 que creo que no suma el año.
Gracias.