[GrabbeR]

Код:

procedure AllCheckBoxClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    CheckBoxes:array[1..6,1..15] of TCheckbox;
    AllCheckBoxes:array[1..6] of TCheckbox;
    Results:array[1..6,1..15] of integer;
...
procedure TForm1.FormCreate(Sender: TObject);
const
  AllIndex:array[1..6]of integer=(16,32,48,64,80,96);
  StartIndex:array[1..6]of integer=(1,17,33,49,65,81);
var i,j: Integer;
begin
  for i:=1 to 6 do
  begin
    AllCheckBoxes[i]:=TCheckbox(FindComponent('Checkbox'+Inttostr(AllIndex[i])));;
    AllCheckBoxes[i].Tag:=i;
    for j:=1 to 15 do
      CheckBoxes[i,j]:=TCheckbox(FindComponent('Checkbox'+Inttostr((StartIndex[i]+j-1))));
  end;
end;

procedure TForm1.AllCheckBoxClick(Sender: TObject);
var i,j: Integer;
begin
  i:=TCheckbox(Sender).Tag;
  if i in [1..6] then
    for j:=1 to 15 do
      CheckBoxes[i,j].Checked:=TCheckbox(Sender).checked;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
begin
  for i:=1 to 6 do
  begin
    for j:=1 to 15 do
    begin
      if CheckBoxes[i,j].Checked then
        inc(Results[i,j]);
      CheckBoxes[i,j].Checked:=false;
    end;
    AllCheckBoxes[i].Checked:=false;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j: Integer;
  StrResult,s:string;
begin
  Button1Click(nil);
  StrResult:='';
  for j:=1 to 15 do
  begin
    s:='';
    for i:=1 to 6 do
      s:=s+' | '+IntToStr(Results[i,j]);
    StrResult:=StrResult+s+#13#10;
  end;
  for i:=1 to 6 do
    for j:=1 to 15 do
      Results[i,j]:=0;
  Application.MessageBox(pChar(StrResult),'Результат',MB_OK);
end;


end.

Админ: Пользуемся тегами, иначе последуют санкции!