Небольшое дополнение:
Код:
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; |