Здравствуйте, Rosmag!
См. приложение.

PS. Сначала присвоить 0 лейблу.

Приложение:
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1); end;

Здравствуйте, Rosmag!

Это просто - код в приложении

Приложение:
Var x : integer;procedure FormCreateBegin x := 0;end;procedure Button1onClickbegin x := x + 1;label.caption := IntToStr(x);end;

Здравствуйте, Rosmag!
Примерно так. Label1.Caption присваиваем 0 и ...


Приложение:
procedure TForm1.Button1Click(Sender: TObject);begin Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);end;

Здравствуйте, Rosmag!

<font color=#cc0000><i>Ответ удален, по одной из указанных причин:
- пустой;
- неверный;
- вредный;
- не соответствует вопросу
и помещен для обсуждения в ветку форума
<a href=http://rusfaq.ru/?Step=forum&Action=Opinions&ID0=11&ID1=39&From=1212>"О деятельности экспертов и работе портала/Удаленные ответы для обсуждения"</a>.</i></font>
-~=<a href=http://rusfaq.ru/info/user/14422> Gh0stik </a>=~-

Здравствуйте, Rosmag!
В модуле в секции var объявляешь переменную x : Integer = 0;

в обработчике на батон делаешь инкремент:
procedure TForm.Button1Click(Sender: TObject);
begin
x := x + 1;
label.caption := inttostr(x);
end;
Бесконечности конечно не будет но кликать точно запаришься.

Здравствуйте, Rosmag!
До бесконечности не получится по моему.
а так можно сделать следующим образом.
в начале Label.Caption := ‘0‘; (это лучше сделать в конструкторе или в обработчике события создания формы FormCreate)
у меня это выглядет так:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:=‘0‘;
end;

в обработчике события OnClick для кнопки Button пишем следующее
i:=StrToInt(Label1.Caption); //берем текст из Label и преобразуем его в целое число
inc(i);// прибавляем 1
Label1.Caption:=IntToStr(i) ; // записываем новое число
у меня это выгляжет так:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=StrToInt(Label1.Caption);
inc(i);
Label1.Caption:=IntToStr(i) ;
end;
<font color=#777777 size=1>* удалены комментарии в неизвестной кодировке(edited by <a href=http://rusfaq.ru/info/user/3630>Ерёмин А.</a>)</font>

Здравствуйте, Rosmag!
Если свойство Tag у лэйбы не занято:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Tag := Label1.Tag+1;
Label1.Caption := IntToStr(Label1.Tag);
end;
иначе
1. гобально (или в классе) обявляем целочисленную переменную val_lable:integer
а дальше...

procedure TForm1.FormCreate(Sender: TObject);
begin
val_lable:= 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(val_lable);
Label1.Caption := IntToStr(val_lable);
end;

Здравствуйте, Rosmag!
<font color=#cc0000><i>Ответ удален, по одной из указанных причин:
- пустой;
- неверный;
- вредный;
- не соответствует вопросу
и помещен для обсуждения в ветку форума
<a href=http://rusfaq.ru/?Step=forum&Action=Opinions&ID0=11&ID1=39&From=1045>"О деятельности экспертов и работе портала/Удаленные ответы для обсуждения"</a>.
И совет - прежде чем ответить, старайтесь проверять код.</i></font>
-~=<a href=http://rusfaq.ru/info/user/14422> Gh0stik </a>=~-

Здравствуйте, Rosmag!
procedure TForm1.Button1Click(Sender:TObject);
begin
Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
end;