[txforce]

Код:

procedure R(x:integer);
 var j:integer;
  begin
    for j:=1 to x do
   begin
    TCheckBox.Create(form1).Name :='CheckBox' + IntToStr(j);
     with TCheckBox('CheckBox' + IntToStr(j)) do begin
          Left :=10;
          Top  :=j*15;
          Parent := form1;
          Caption :='CheckBox' + IntToStr(j);
                                                 end;
   end;
  end;

Админ: Не забываем про теги!