Query con tablas temporales

[cartmanrules]

Hola!

Tengo la siguiente query:

select lin_ent1.lin_fruta, lin_ent1.lin_variedad, lin_ent1.lin_categoria, lin_ent1.lin_subcategoria, pro_numsocio , pro_codigo, pro_nombre, pro_apellidos, sum(lin_ent1.lin_kgsnetos),
(sum(lin_ent1.lin_kgsnetos) /
(select sum(lin_ent2.lin_kgsnetos)
from mercancias_ent mer_ent2, lineas_ent lin_ent2
where lin_ent2.lin_entrada=mer_ent2.mer_numero
and mer_ent2.mer_socio=mer_ent1.mer_socio
and lin_ent2.lin_fruta="NARANJA") * 100)
from mercancias_ent mer_ent1, lineas_ent lin_ent1, proveedores
where lin_ent1.lin_entrada=mer_ent1.mer_numero
and mer_ent1.mer_socio=pro_codigo
and lin_ent1.lin_fruta="NARANJA"
group by lin_ent1.lin_fruta, lin_ent1.lin_variedad, lin_ent1.lin_categoria, lin_ent1.lin_subcategoria, pro_numsocio, pro_codigo, pro_nombre, pro_apellidos
order by mer_ent1.mer_socio, lin_ent1.lin_fruta, lin_ent1.lin_variedad, lin_ent1.lin_categoria, lin_ent1.lin_subcategoria

El caso es que, si os fijáis, el último campo en el select es una suma que se tiene que dividir por el resultado de una sub-select. Me gustaría saber si es posible crear una tabla temporal donde almacenar todos los valores de esa subselect, para no tener que ejecutarla para cada tupla en la select principal, ya que tarda un huevo en acabar para unas 2000 tuplas :'( Uso Interbase 6.5 y Delphi 7. ¿Alguna sugerencia? Gracias!