看我的代码，是不是很累，很无聊。

Question

with MyCheckBox[i] do
  begin
    Parent:=Panel1;
    left:=2;
    top:=2+(i-1)*25;
    width:=96;
    Height:=25;
    Glyph:=BitBtn7.Glyph;
    Caption:='aaa'+inttostr(i);
    onclick:= MenuClick;
    Tag:=i;            <-----
  end;procedure TForm1.MenuClick(Sender: TObject);
begin
  case (Sender as TBitbtn).Tag of
     1:
       .....
     2:
       .....
  end;

Answer 1

with MyCheckBox[i] do
  begin
    Parent:=Panel1;
    left:=2;
    top:=2+(i-1)*25;
    width:=96;
    Height:=25;
    Glyph:=BitBtn7.Glyph;
    Caption:='aaa'+inttostr(i);
    onclick:= MenuClick;
    Tag:=i;            <-----
  end;procedure TForm1.MenuClick(Sender: TObject);
begin
  case (Sender as TBitbtn).Tag of
     1:
       .....
     2:
       .....
  end;

Answer 2

with MyCheckBox[i] do
  begin
    Parent:=Panel1;
    left:=2;
    top:=2+(i-1)*25;
    width:=96;
    Height:=25;
    Glyph:=BitBtn7.Glyph;
    Caption:='aaa'+inttostr(i);
    onclick:= MenuClick;
    Tag:=i;            <-----
  end;procedure TForm1.MenuClick(Sender: TObject);
begin
  case (Sender as TBitbtn).Tag of
     1:
       .....
     2:
       .....
  end;