Головоломка для начинающих "Все пять"

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure CheckBoxesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  cb: array[0..4] of TCheckBox;  // массив флажков
  // также установить свойство Tag каждого флажка равным индексу
  manualClick: boolean = true;
 
implementation
 
{$R *.dfm}
 
// процедура навешена на все флажки
procedure TForm1.CheckBoxesClick(Sender: TObject);
var
  i,f: byte;
begin
  if not manualClick then Exit;  // проверка, чтобы щелчок был мышью,
  // во избежание срабатывания события при программной установке флажка
  manualClick:= false;
  // выполнится только в том случае, если свойство Enabled = true
  // при установке флажка свойство Enabled присваивается false,
  // при сбросе = true
  with TCheckBox(Sender) do
  begin
    Enabled:= false;
    f:= Tag;    // читаю индекс флажка, на котором произошло событие
    // НЕ ЗАБЫТЬ УСТАНОВИТЬ ТЭГИ ДЛЯ ВСЕХ ФЛАЖКОВ!!!!
    for i:= 0 to 1 do
    // вычисление индексов следующих двух флажков и обработка их состояния
    begin
      Inc(f);
      if f > 4 then f:= 0;
      cb[f].Checked:= not cb[f].Checked;
      cb[f].Enabled:= not cb[f].Enabled;
    end;
  end;
  manualClick:= true;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  cb[0]:= CheckBox1;
  cb[1]:= CheckBox2;
  cb[2]:= CheckBox3;
  cb[3]:= CheckBox4;
  cb[4]:= CheckBox5;
end;
 
end.