Работа с множеством кнопок

if button1.caption=' ' then showmessage('FAIL!') else
                                        begin
                                            button1.enabled:=false;
                                            ...
                                            button5.enabled:=false;
                                            button6.enabled:=true;
                                            ...
                                            button10.enabled:=true;
                                         end;

if Button1.Caption=' 1' then ShowMessage('FAIL!') else;
 begin
    for i:=1 to 5 do
    TButton(FindComponent('button'+inttostr(i))).Enabled:=False;
    for i:=6 to 10 do
    TButton(FindComponent('button'+inttostr(i))).Enabled:=true;
 end;

Procedure Button1Click(Sender: TObject);
Begin
  If (Sender as TButton).Caption = ' 1' Then ShowMessage('FAIL!') else;
  begin
    n:=(Sender as TButton).Tag;
 
    for i:=0 to ComponenCount-1 do
    If Component[i] is TButton Then
    With Component[i] as TButton Do
    If Tag = n Then Enabled:=False Else 
    If Tag = (n+1) Then Enabled:=True;
  end;
End;

  private
    { Private declarations }
    procedure EnableRow(ARow : Integer; Value : Boolean = True);
  // ...
 
procedure TForm1.EnableRow(ARow : Integer; Value : Boolean);
var i : Integer;
begin
  for i := 1 to SizeY do
    (FindComponent(Format('Button%d', [Pred(ARow) * SizeY + i])) as TButton).Enabled := Value;
 
end;

  // Разрешаем второй ряд
  EnableRow(2);
 
  // А так - гасим второй, включаем первый:
  EnableRow(2, False);
  EnableRow(1);

  for i:=0 to ComponenCount-1 do

for i:=0 to ComponenTCount-1 do

Var
  n,i : Integer;

Procedure TForm1.Button1Click(Sender: TObject);
Var
 i,n : Integer;
Begin
  If (Sender as TButton).Caption = ' 1' Then ShowMessage('FAIL!') else;
  begin
    n:=(Sender as TButton).Tag;
 
    for i:=0 to ComponentCount-1 do
    If Component[i] is TButton Then
    With Component[i] as TButton Do
    If Tag = n Then Enabled:=False Else 
    If Tag = (n+1) Then Enabled:=True;
  end;
End;