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

примерно так