In einem Label zählen?

[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;