How to count up numbers in a label in delphi
<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>