Quick report leto pra dar um preview

Galera antes quadno eu dava um preview no quick report não demorava nem 2 segundor era muito rapido
agora quando demora 10 segundos em média sei que não é muito
mas vejam bem meu pc é um I5 e do emu cliente é um celeron d 430 então já viu
demora cerca de 30 segundos, no pc do meu colega mesmo com 400 registros para
imprimir por vez leva cerca de 5 segundo e o dele e um core2 duo

posso estar errado sobre isso, mas vejam o código

if frm_balanco =nil then
frm_balanco:=Tfrm_balanco.Create(Self); // no meu caso eu deixo todos os form livre na memória
begin
With DataModule1.tbl_his_estoque do // tabela de etoque
begin
Active:=FALSE;
Close;
SQL.Clear;
sql.Add('select * from TBLestoqueHistorico where');
sql.add('data_estoque>="'+date1+'" and data_estoque<="'+date2+'" and nome_produto="'+edt_busca_pro.Text+'"' ) ;
Open;
end;
frm_balanco.qr_quant_total.Caption:=IntToStr(quantidade_banco);
frm_balanco.qr_titulo.Caption:='Relatório de entrada e saida de produtos' ;
frm_balanco.q_balanco.Preview ;// e aqui esta o meu preview
end;