만족하실진 모르겠지만, 제가 예전에 만들어 놓았던 코드를 올려드립니다

폼에 버튼하나랑 스트링그리드를 올려 놓고, 코딩을 했습니다.

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    TCheckBox* t = new TCheckBox(this);
    StringGrid1->Objects[1][1] = t;
    t->Parent = StringGrid1;
    t->BoundsRect = StringGrid1->CellRect(1,1);
    t->Width = StringGrid1->ColWidths[1];
    t->Height = StringGrid1->RowHeights[1];
    t->OnMouseUp = CheckBoxMouseUp;
    t->Caption = "AAA";
    t->Checked = false;

}

void __fastcall TForm1::CheckBoxMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    TCheckBox* cbCheck = dynamic_cast<TCheckBox*>(Sender);

    cbCheck->Checked = !cbCheck->Checked;
}