button 怎么实现在pagecontrol逐个创建复选框

button 如何实现在pagecontrol逐个创建复选框
大家好请问:button 如何实现在pagecontrol内逐个创建 复选框?

------解决方案--------------------
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);
var tem:TcheckBox;
begin
   tem := TCheckBox.Create(self);
   tem.Caption := '测试';
   tem.Parent := TabSheet1;
end;