error.. out of memory...

[CarlosHernandez]

hola a todos los foristas again..

hago una consulta muy larga con union, left join, etc, etc, de varias tablas, unida con un while do, ademas de eso hay otro while do repitiendo el proceso otra vez, y hay impresiones de reportes, llena como unas 15 variables, en fin..

Código Delphi [-]
variables;
consulta1.sql.add();
llenar variables.

while not consulta1.eof do begin
//if
consulta2.sql.add('aqui va una consulta muy larga');
//if
      while not consulta1.eof do begin

 // una serie de if validando todo
      end;

qreport.print;
//el reporte tiene cada banda con codigo validando muchas mas cosas
end;

bueno se que no es la manera, pero trato de poner mas bien es la estructura porque el codigo ni ya me acuerdo que hace, jeje, y cuando voy en el while do por el registro 20 sale en delphi out of memory y se cuelga la maquina...

ha manera de liberar memoria, o liberar algo para que no consuma tanto, porque abro el administrador de tarea y veo que la aplicacion va 100.000 kb, y eso no es factible... gracias

y si ncesitan algo mas me avisan por favor

y ademas ¿cual es la causa de ese error?

tambien me da otro error

access violation at address 000a0d20. read of address 000a0d20

uso delphi 6 y firebird 1.5