如何使用手势在TButtonGroup中滚动？

Question

我目前正在开发一个应用，该应用需要在TButtonGroup组件中具有多个按钮。 为了在触摸屏上使用它，我希望能够通过触摸组件中的任何位置来使用OnGesture事件在ButtonGroup中向上/向下滚动。

我已经将OnGesture事件与其他组件一起使用，但无法通过TButtonGroup来解决。

这是我用来成功捕获其他组件手势的代码：

procedure TForm1.OnGesture(Sender: TObject;
    const EventInfo: TGestureEventInfo; var Handled: Boolean);
  begin
    case EventInfo.GestureID of
      sgiDown :
        begin
           ShowMessage('Down');
        end;
      sgiUp   :
        begin
            ShowMessage('Up');
        end;
    end;
  end;

有人可以给我一个建议，以便能够使用触摸屏和手势在我的TButtonGroup中滚动吗？