[Solyaha]

Нужно чтобы при нажатии на кнопку, сменялся текст на кнопке, при нажатии ещё раз ставился старый текст и так далее

[ApxaHGe1]

Создать флаг для кнопки, и задавать текст для кнопки в зависимости от флага

Код:

var
  flag:integer;
  i:integer = 0;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
case i of
1:Button1.Caption:='Button 1';
2:Button1.Caption:='Button 2';
3:Button1.Caption:='Button 3';
4:Button1.Caption:='Button 4';
5:Button1.Caption:='Button 5';
6:Button1.Caption:='Button 6';
end;
end;

примерно так

[Страдалецъ]

Небольшое дополнение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
if i > 6 then i := 1;
case i of
1:Button1.Caption:='Button 1';
2:Button1.Caption:='Button 2';
3:Button1.Caption:='Button 3';
4:Button1.Caption:='Button 4';
5:Button1.Caption:='Button 5';
6:Button1.Caption:='Button 6';
end;
end;

[Kapitoshka438]

Я так понял, это для вашей игры, и у кнопки может быть две надписи: "Пауза" и "Продолжить". Создайте все-таки глобальную переменную

Код:

var Playing: Boolean;

которая будет означать, игра продоожается или стоит на паузе.
А при нажатии на кнопку будет происходить следующее:

Код:

begin
  Playing := not Playing;
  if Playing then
    Button.Caption := 'Пауза'
  else
    Button.Caption := 'Продолжить';
  Timer.Enabled := Playing;
  ...
end;

[Solyaha]

Пасиба вам

[Bars1992]

Для таких целях разработчики делфи придумали свойство компонентов Tag. Можно использовать его и не надо никаких флагов

[IllVDG]

А еще проще - проверять, что написано на кнопке сейчас).

[Asinkrit]

Сообщение от Bars1992

Для таких целях разработчики делфи придумали свойство компонентов Tag. Можно использовать его и не надо никаких флагов

Использование Tag-а конечно дело неплохое, но лучше завести флаг это нагляднее, код проще читается.

Сообщение от IllVDG

А еще проще - проверять, что написано на кнопке сейчас).

И чем же это проще? По мне, так это безграмотно.

[Bars1992]

Я тоже так считаю)