1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TForm1.FormCreate(Sender: TObject);
var i,j,st:Integer;
      rb: TRadioButton;
      db: TEdit;
      panel: TPanel;
      sb: TScrollBox;
      t: TLabel;
begin
  for i:=1 to 14 do
    begin
      panel:=TPanel.Create(Panel2);
      panel.BevelOuter:=bvNone;
      panel.Width:=Panel2.Width-35;
      panel.Height:=20;
      panel.Top:=(i-1)*23;

      t:=TLabel.Create(panel);
      t.Left:=3;
      t.Caption:=IntToStr(i);
      t.Width:=15;

      panel.InsertControl(t);
      st:=t.Left+t.Width+3;
      for j:=0 to 2 do
        begin
          rb:=TRadioButton.Create(panel);
          rb.Left:=st;
          rb.Width:=rb.Height;
          panel.InsertControl(rb);


          db:=TEdit.Create (panel);
          db.Left:=rb.Left+rb.Width;
          db.Width:=50;
          panel.InsertControl(db);
          st:=db.Left+db.Width+10
        end;
      panel2.InsertControl(panel);
    end;
end;