¿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;