Haber tu trabajas en delphi no?
Tu haz esto en un boton y pon un label en el form.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to 50 do begin
label1.caption := inttostr(i);
sleep(1000);//te pongo el sleep para que veas el label como incrementa a poco a poco.Tu szacalo si quieres
repaint;
end;
end;
A ver si funciona
|