Programa congelado debido a la carga

[[duilioisola]]

¿El primer proceso lo has hecho tu?
Si es así, quizás podrías hacer que devuelva el control después de cada parte que ejecuta:

Código Delphi [-]
begin
   PreguntarBaseDeDatos;
   Application.ProcessMessages;

   for i := 1 to CantidadFilas do
   begin
      PintarFila(i);
      Application.ProcessMessages;
   end;
end;

o

Código Delphi [-]
begin
   PreguntarBaseDeDatos;
   Sleep(100);

   for i := 1 to CantidadFilas do
   begin
      PintarFila(i);
      Sleep(100);
   end;
end;