[[Caral]]

Hola
No se exactamente como esta tu tabla ni el contenido, pero una cosa si te puedo decir, usar esto:

Código Delphi [-]
 while not Eof do
            begin

es muy perjudicial, por lo lento, ya que cuando crezca la base de datos costara mas que se haga el recorrido de la misma.
Por eso me da la impresion de que se puede hacer de otra manera.
Saludos