[Paolo]

Código Delphi [-]
var
  Form1: TForm1;
  Btns: array[1..4] of TSpeedButton;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var x,y,t:integer;
begin
 y:=strtoint(label1.Caption);
 t:=4*y;
 if y<4 then
   label1.caption:=inttostr(y+1);
  for x:=1 to 4 do
  begin
   Btns[x]:=TSpeedButton(FindComponent('Boton'+IntToStr(x)));
   Btns[x].caption:=inttostr(t+x);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var x:integer;
begin
 for x:=1 to 4 do
  begin
   Btns[x]:=TSpeedButton(FindComponent('Boton'+IntToStr(x)));
   Btns[x].caption:=inttostr(x);
  end;
end;

Me salio de esta manera ahora tengo que hacer la disminucion

Gracias