Counter mit Timer und Label

[flomei]

Delphi-Quellcode:

var
  Form1: TForm1;
  i: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  begin
    Timer1.Enabled := true;
  end;

procedure TForm1.FormCreate(Sender: TObject);
  begin
    i := 10;
  end;

procedure TForm1.Timer1Timer(Sender: TObject); //Timer Intervall 1000ms
  begin
    i := i -1;
    Label1.Caption := IntToStr(i);
  end;

end.

Wäre auch eine (nicht ganz so elegante) Möglichkeit. Dann muss man nur noch überprüfen ob i nicht 0 ist und fertig.

MfG Florian