Создание свойства-массива компонентов

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FCheckboxes: TList;
    function GetCheckbox(Index: integer): TCheckbox;
  public
    property Checkboxes[Index: integer]: TCheckbox read GetCheckbox;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  AComponent: TComponent;
begin
  FCheckboxes := TList.Create;

  { ТАКЖЕ: это собирает все CheckBox в порядке очередности }
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TCheckbox then
      FCheckboxes.Add(Components[i]);

  { ИЛИ: если они имеют имя CheckboxNN и вы хотите
  разместить их в массиве в том же порядке... }
  {for i := 1 to MaxInt do begin
  AComponent := FindComponent( 'Checkbox' + IntToStr( i ) ) ;
  if AComponent = NIL then break ;
  FCheckboxes.Add( AComponent ) ;
  end ;}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FCheckboxes.Free;
end;

function TForm1.GetCheckbox(Index: integer): TCheckbox;
begin
  Result := TCheckbox(FCheckboxes[Index]);
end;