Resultado tquery

[johurgi]

Gracias por vuestra ayuda.

Al final hice lo que me digiste poliburro, y me funciono, lo unico que al ser un tabla con mas de 150000 registro acaba el pc por quedarse sin memoria.

Y he cambiado la forma de hacerlo, lo he echo con un ttable utilizando la propiedad de filter, pero me vuelve a dar problemas en la segunda pasada del bucle que se encarga de dar la condicion de filtrado me da un error cuando intento establecer el nuevo filtro:

while not tabla1.eof do
begin
  tabla2.filter:='codigo='''+tabla1Cod.asstring'''';
  tabla2.filtered:=true;
  if tabla2.recordcount <> 0 then
  begin
    while not tabla2.eof do
    begin
       res:=res + tabla2Texto.asstring;
       tabla2.next;
    end
   tabla2.filtered:=false;
   {Inserto en otra tabla}
  end
  tabla1.next;
end

El error que me da cuando intento volverla a filtrar es el de "Operation not aplicable".

si alguien me pudiera echar una mano se lo agradeceria

Un saludo