[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  b: TButton;
begin
  for i:=ComponentCount-1 downto 0 do 
    if (Components[i] is TButton) and (Components[i].Name='') then
      TButton(Components[i]).Free;
  for i:=1 to StrToIntDef(Edit1.Text, 0) do
  begin
    b:=TButton.Create(Self);
    b.Parent:=Self;
    b.Left:=152;
    b.Top:=56+i*b.Height;
    b.Caption:='TButton'+IntToStr(i);
    b.OnClick:=Button1Click;
    b.Show;
  end;
end;