Hochzählen und dabei gleichzeitig anzeigen

[Almond]

procedure TForm1.Button1Click(Sender: TObject);
var
va: Integer;
begin
Label1.Invalidate;
Timer1.Interval := 1000 div 6;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Sekunden);
Label1.Caption := IntToStr(Sekunden);
Label1.Invalidate;
label1.Refresh;
end;


kann man den Timer auch stoppen?

[Schaedel]

zum Stoppen

Delphi-Quellcode:

Timer1.Enabled :=false;