problemas con filtro

[[Lepe]]

Código Delphi [-]
    Label21.Caption := IntToStr(con4);
    Application.ProcessMessages;
    Form1.Table2.Next;

Sustituye el Application.ProcessMessages por label21.Update. No estoy seguro de que funcione, porque los mensajes de dibujado tienen poca prioridad, pero el processmessages consume mucho tiempo en un bucle.

Edito:
Además incluye un table1.DisableControls antes del bucle y un Table1.EnableControls al final del bucle, eso disminuye el tiempo del bucle 10 veces. Lo mismo para table2.

Saludos.