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