delphi – 有没有办法找出TButtonGroup的哪个按钮被点击？

procedure TVector_Menu.Synchronize (rows,cols: Int32);
var btn: TGrpButtonItem; 
    i: Int32;
begin
   ButtonGroup.Items.Clear;
   Self.Rows := rows;
   Self.Cols := cols;
   for i := 0 to rows * cols - 1 do
   begin
      btn := Buttongroup.Items.Add;
      btn.Data       := Pointer (i);
      btn.ImageIndex := i;
      btn.OnClick    := doClick;
   end; // for
   Self.ClientHeight :=  4 + rows * ButtonGroup.ButtonHeight;
   Self.ClientWidth  := 22 + cols * ButtonGroup.ButtonWidth;
end; // Synchronize //

procedure TVector_Menu.doClick (Sender: TObject);
var btn: TGrpButtonItem; 
    i,r,c: Int32;
begin
   btn := (Sender as TGrpButtonItem); // @@@ TButtonGroup
   i := Int32 (btn.Data);
   get_rc (i,c);
   if Assigned (FOnClick)
      then FOnClick (Sender,@FButton_Matrix [r,c]);
end; // doClick //

当调用doClick时,我在标有“@@@”的行上获得了一个无效的类型转换.当我使用TButtonGroup作为btn以及类型转换时,类型转换是正确的,但是这个不包含数据属性,并且无论如何都不会有太多用处.

作为测试,我为TButtonGroup控件分配了一个OnClick事件处理程序,我注意到当我单击一个按钮时,首先调用按钮事件处理程序,然后调用包含按钮事件处理程序的TButtonGroup.

问题：有没有办法找出TButtonGroup的哪个按钮被点击了？

在Windows 7/64上使用Delphi XE