[ecfisa]

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.