不使用dfm文件，能否动态创建一个Form，里面的有一个TradioGroup+确认+取消？
背景：想实现2个通用的对话框：多选1或多选多。但是希望仅仅在一个unitxxx.pas里实现。
前者，需要动态创建一个Form，里面的有一个TradioGroup+确认+取消
后者，需要动态创建一个Form，里面的有一个TCheckListbox+确认+取消

希望的通用函数原型为：
function radioBox(ss:String;t:String='';default:Integer):Integer;
function CheckBox(ss:String;t:String='';default:String):String;
ss为回车分割的各个选项，t为form的标题，default为对话框跳出时的预选项

创建form可能还好办，但是需要为确认按钮挂一个事件BtnOKClick：收集用户的选项返回
procedure BtnOKClick(sender:Tobject) of Tobject 这样的方法在无dfm的pas里该怎么实现？