In einem Label zählen?

[nailor]

wenn das bei jedem Klick klappen soll, müsst ihr auch den Tag hochzählen...

[Uncle Cracker]

Hier als kurzes Beispiel, falls du's nicht geschafft:

Delphi-Quellcode:

var
  Form1: TForm1;
  Wert: Integer = 0;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Wert := Wert+1;
Label1.Caption := InttoStr(Wert)
end;

[nailor]

oder:

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Tag      := succ(Label1.Tag);
Label1.Caption  := inttostr(Label1.Tag);
end;