function createForm2Button(ss:String;t:String;b1:Boolean;d1:Integer;d2:String):Tform;
var
p:Tchecklistbox;
begin
result:=Tform.Create(nil);
result.Position:=poMainFormCenter;
result.Caption:=t;
if b1 then
with Tradiogroup.Create(result) do
Begin
parent:=result;
items.Text:=ss;
itemindex:=d1;
End
else
Begin
p:=Tchecklistbox.Create(result);
with p do
Begin
parent:=result;
items.Text:=ss;
checklistbox.str2checklist(d2,p);
End;
End;

with Tbitbtn.Create(result) do
Begin
kind:=bkOK;
End;
with Tbitbtn.Create(result) do
Begin
kind:=bkCancel;

End;
end;


function Select1Box(ss:String;t:String;default:Integer):Integer;
var
f:Tform;
begin
f:=createForm2Button(ss,t,true,default,'');
。。。。。
f.ShowModal;
f.close;
f.free;
end;
function SelectMBox(ss:String;t:String;default:String):String;
var
f:Tform;
begin
f:=createForm2Button(ss,t,false,0,default);
。。。。。。
f.ShowModal;
f.close;
f.free;
end;

实在不行，pas里放一个永远不会使用的class，里面有一个方法，专门用于挂到ok按钮click事件的