Processamento com Campo Calculador

Pessoal !!!

Estou fazendo uma rotina para buscar a descrição e a quantidade de u produto. No entanto uso campo calculado e defino no evento
ONCALCFIELDS. O Problema e que fica muito lento. Teria alguma outra forma de fazer ?????

A rotina segue abaixo. Ele faz certinho, o problema é que está lento..


if cdsItemOsOr.FieldByName(´CODPRO_ITEM_OS_OR´).asString <> ´´ then
begin
iRet := Consulta(´PRODUTO p´,´p.DES_PRO,p.QUAN_PRO´,
´ where p.COD_PRO = ´ +
cdsItemOsOr.FieldByname(´CODPRO_ITEM_OS_OR´).asString);

if iRet = 1 then
begin
with dmCadastro.SQLQuery1 do
begin
cdsItemOsOr.FieldByName(´DES_PRO´).AsString :=
fieldByname(´DES_PRO´).AsString;
cdsItemOsOr.FieldByName(´QUAN_PRO´).AsInteger :=
fieldByname(´QUAN_PRO´).AsInteger;
end;
end;
end;