Código Delphi [-] for i := 0 to 100 do begin Label1.Caption := IntToStr(i); Application.ProcessMessages; end;
for i := 0 to 100 do begin Label1.Caption := IntToStr(i); Application.ProcessMessages; end;