title: How to count up numbers in a label in delphi
body: <p>I have a program containing a button and a label, I want the label to count up numbers so fast from 0 to 100000 for example.</p>
  
  <p>I tried <code>System.Diagnostics stopwatch</code> but it's not as I want it.</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  var
    sw: TStopwatch;
  begin
    sw := TStopwatch.StartNew;
    Timer1.Enabled := True;
   end;
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
    sw: TStopwatch;
  begin
    sw.Start;
    label1.Caption := IntToStr(sw.ElapsedMilliseconds);
  end;
  </code></pre>