como extraer la el año de una fecha en un sentencia SQL?

[marcoszorrilla]

Suponiendo que el usuario introduzca el año en un Edit, aquí te pongo un ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.Sql.Add('Select * From Employee');
Query1.Sql.Add('Where (Extract(Year from HireDate)) = '+ QuotedStr(edit1.text));
Query1.Active:=True;
end;

Un Saludo.