怎么才能在radiogroup只有一个radiobutton的时候触发其onclick事件

如何才能在radiogroup只有一个radiobutton的时候触发其onclick事件？
当其只有一个radiobutton的时候，click就没有用了，但是我需要onclick事件调用一些方法，该怎么办呢？

[解决办法]
procedure TForm1.RadioButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
showmessage('aa');
end;