imprimir datos consecutivos en delphi

[franklindavid]

soy extremadamente exageradamente nuevo en delphi :(
y necesito saber como se imprimen valores en el, osea tengo este evento que ocurre cuando presiono un buttom

procedure TForm1.Button1Click(Sender: TObject);
begin
p1 := 7;
p2 := 3;
p3 := 4;
p4 := 5;
label1.caption:=floattostr(p1);
label2.caption:=floattostr(p2);
label3.caption:=floattostr(p3);
label4.caption:=floattostr(p4);
while(p1<>0) or (p2<>0) or (p3<>0) or (p4<>0)do
begin
if (p1<>0) then
begin
p1 := p1 -1;
label1.caption:=floattostr(p1);
Sleep(100);
end;


if (p2<>0) then
begin
p2 := p2 -1;
label2.caption:=floattostr(p2);
Sleep(100);
end;


if (p3<>0) then
begin
p3 := p3 -1;
label3.caption:=floattostr(p3);
Sleep(100);
end;

if (p4<>0) then
begin
p4 := p4 -1;
label4.caption:=floattostr(p4);
Sleep(100);
end;



end;

end;

pero nada mas me muestra el final que da 0 y yo necesito saber como mostrar paso por paso :( resultado por resultado de la resta hasta que llegue a 0 :(

[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 (http://www.clubdelphi.com/foros/guiaestilo.php).

Dentro de tu ciclo while incluí la siguiente línea:

...
while(p1<>0) or (p2<>0) or (p3<>0) or (p4<>0)do
begin
Application.ProcessMessages;
....


Saludos. :)

[franklindavid]

gracias!!! muchas gracias!! te amo!

[oscarac]

gracias!!! muchas gracias!! te amo!

oe que !!!!!

[newtron]

gracias!!! muchas gracias!! te amo!

Cheeeeeeeeeeeeeeeeeeeee.... ponte a la colaaaaaaaaaaaaaaa. :D:D:D