Ereignis bei Timer.Tick funktioniert nicht

[blade236]

mit inkrementieren meinst du wohl sowas oder?

zahl:=zahl+1;
label1.Text:=inttostr(zahl);

Delphi-Quellcode:

unit WinForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, sysutils;

procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
var zahl:integer;
begin
zahl:=zahl+1;
label1.Text:=inttostr(zahl);

end;

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

begin
     timer1.enabled:=true;

end;

end.

klappt immernoch nicht