Error de memoria
 

Buenos días tengo un progama que me va imprimiendo informes dependiendo de la consulta realizada, el caso es que me pasa lo siguiente cuando los casos a imprimir son muchos se me bloquea y da el error de " El proceso ha utilizado el número máximo de manipulaciones permitidos por el sistema para objetos del administrador de windows". El problema le tengo por las siguientes sentencias pero no se como solucionarlo:

Código Delphi [-]
DMInformes.Qtbcuestbucofic.Close;
   DMInformes.Qtbcuestbucofic.ParamByName('prmChistori').AsInteger := prmchistori;
   DMInformes.Qtbcuestbucofic.Open;
   DMInformes.QDatosTrabajBuco.Close;
   DMInformes.QDatosTrabajBuco.ParamByName('prmChistori').AsInteger := prmchistori;
   TfechaDesde :=StrToDateTime(prmTfecha)-31;
   TfechaHasta :=StrToDateTime(prmTfecha)+31;
   DMInformes.QDatosTrabajBuco.ParamByName('prmTfechaDesde').AsDateTime := TfechaDesde;
   DMInformes.QDatosTrabajBuco.ParamByName('prmTfechaHasta').AsDateTime := TfechaHasta;
   DMInformes.QDatosTrabajBuco.Open;

Ya que estas sentencias se repiten por cada caso a imprimir. ¿Como podría resolver mi problema?

Muchas gracias.

Un saludo