with TDateTimePicker.Create(panel1) do
begin
name := 'M' + xmdm;
left := lf;
top := tp;
parent := groupbox2;
width := 100;
tag := 10;
end;
begin
name := 'M' + xmdm;
left := lf;
top := tp;
parent := groupbox2;
width := 100;
tag := 10;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tmp : Tcheckbox;
begin
tmp := tcheckbox.Create(panel1);
tmp.Name := 'test';
tmp.Caption := 'test_caption';
tmp.Parent := Panel1;
end;