Hola franklindavid y bienvenido a
Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra
guía de estilo.
Dentro de tu ciclo while incluí la siguiente línea:
Código Delphi
[-]
...
while(p1<>0) or (p2<>0) or (p3<>0) or (p4<>0)do
begin
Application.ProcessMessages;
....
Saludos.
