[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;

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

[NumLock]

Код:

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

[txforce]

Спасибо!!!!!