Amigos, he visto que los Forms del Power 3 no tienen método "ThruEvents" (o lo que es lomismo en Borland/Embarcadero el método "Update").
Cómo solucionáis este tema en los bucles?
Si no hay solución, habrá que acudir a WinAPI "InvalidateRect" + "UpdateWindow" o algo así (nunca lo he necesitado, no sé cómo va exactamente)...
Añadido despues de 1 hora 12 minutos
He encontrado la solución! El equivalente el "ThruEvents" serían 2 llamadas a WinAPI:
Código COBOL:
MOVE "InvalidateRect" TO FUNC
CALL FUNC WITH STDCALL USING BY VALUE hWnd
BY VALUE 0
BY VALUE 1
MOVE "UpdateWindow" TO FUNC
CALL FUNC WITH STDCALL USING BY VALUE hWnd