как покороче запретить BitBtn кнопки в некотором диапазоне?

BitBtn[18..65].Enabled:=False;

Fpr x:=18 to 65 do
begin
BitBtn[x].Enabled:=False;
end;

Fpr x:=18 to 65 do
begin
  BitBtn[x].Enabled:=False;
end;

var BitBtn: TObjectList<TBitBtn>;

var
  Form2: TForm2;
x2,y2,z2: Integer;
m2m2: array[1..2001] of String;
btb: array[1..66] of String;
t2mp1,t2mp2: TStringList;
m2,mm2,mmm2,mmmm2 : String;
bt2,bt3,bt4,bt5 : String;
BitBtn: TObjectList<TBitBtn>;
 
implementation
 
{$R *.dfm}

var
i:word;
Component:TComponent;
 
begin
for i:=0 to MainForm.ComponentsCount-1 do  //перебираем все компоненты, что есть на форме
  begin
  Component:=MainForm.Components[i];  //Считываем параметры очередного компонента
  if Component is TBitBtn then  //Проверяем, что это - именно BitBtn
  (Component as TBitBtn).Enabled:=false;  //Если очередной компонент - это BitBtn, то изменяем его свойство
  end;
end;

type
  { Declare a new object type. }
  TNewObject = class
  private
    FName: String;
 
  public
    constructor Create(const AName: String);
    destructor Destroy(); override;
  end;
 
{ TNewObject }
 
constructor TNewObject.Create(const AName: String);
begin
  FName := AName;
end;
 
destructor TNewObject.Destroy;
begin
  { Show a message whenever an object is destroyed. }
  writeln('Object "' + FName + '" was destroyed!');
  inherited;
end;
 
var
  List: TObjectList<TNewObject>;
  Obj: TNewObject;
begin
  { Create a new List. }
  { The OwnsObjects property is set by default to true -- the list will free the owned objects automatically. }
  List := TObjectList<TNewObject>.Create();
 
  { Add some items to the List. }
  List.Add(TNewObject.Create('One'));
  List.Add(TNewObject.Create('Two'));
 
  { Add a new item, but keep the reference. }
  Obj := TNewObject.Create('Three');
  List.Add(Obj);
 
  {
    Remove an instance of the TNewObject class. The destructor
    is called for the owned objects, because you have set the OwnsObjects
    to true.
  }
  List.Delete(0);
  List.Extract(Obj);
 
  { Destroy the List completely -- more message boxes will be shown. }
  List.Free;
  readln;
end.

for i := 18 to 65 do
  (FindComponent('BitBtn' + IntToStr(i)) as TBitBtn).Enabled := false;

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;
 
type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  i: ShortInt;
implementation
 
{$R *.dfm}
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
// enable all
for i := 5 to 15 do
  (FindComponent('BitBtn' + IntToStr(i)) as TBitBtn).Enabled := True;
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
// DISABLE ALL
for i := 5 to 15 do
  (FindComponent('BitBtn' + IntToStr(i)) as TBitBtn).Enabled := False;
end;
 
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
// enable 4..8 and 10
BitBtn14.Enabled:=True;
for i := 8 to 12 do
  (FindComponent('BitBtn' + IntToStr(i)) as TBitBtn).Enabled := True;
end;
 
procedure TForm2.BitBtn4Click(Sender: TObject);
begin
// disable 3..6
for i := 7 to 10 do
  (FindComponent('BitBtn' + IntToStr(i)) as TBitBtn).Enabled := False;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    btnDiasableAll: TButton;
    btnEnableAll: TButton;
    btnEnable48: TButton;
    btnDisable36: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnDiasableAllClick(Sender: TObject);
    procedure btnEnableAllClick(Sender: TObject);
    procedure btnEnable48Click(Sender: TObject);
    procedure btnDisable36Click(Sender: TObject);
  private
    { Private declarations }
    BtnList: array[0..14] of TBitBtn;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  BtnList[0] := BitBtn1;
  BtnList[1] := BitBtn2;
  BtnList[2] := BitBtn3;
  BtnList[3] := BitBtn4;
  BtnList[4] := BitBtn5;
  BtnList[5] := BitBtn6;
  BtnList[6] := BitBtn7;
  BtnList[7] := BitBtn8;
  BtnList[8] := BitBtn9;
  BtnList[9] := BitBtn10;
  BtnList[10] := BitBtn11;
  BtnList[11] := BitBtn12;
  BtnList[12] := BitBtn13;
  BtnList[13] := BitBtn14;
  BtnList[14] := BitBtn15;
end;
 
procedure TForm1.btnDiasableAllClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 14 do
    BtnList[i].Enabled := false;
end;
 
procedure TForm1.btnEnableAllClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 14 do
    BtnList[i].Enabled := true;
end;
 
procedure TForm1.btnEnable48Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 14 do
    if i in[4..8, 10] then
      BtnList[i].Enabled := true;
end;
 
procedure TForm1.btnDisable36Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 14 do
    if i in[3..6] then
      BtnList[i].Enabled := false;
end;
 
end.