In einem Label zä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;