Suponiendo que el usuario introduzca el año en un Edit, aquí te pongo un ejemplo:
Código:
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.