Sentencia SQL

[emeritos]

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.