Fórum Editor de Forms, como o do Delphi, como fazer? #294395

procedure TForm1.BtNovoOnClick(Sender : TObject); 
Var 
Button : TButton; 
begin 
Button := TButton.Create(Form); 
with Button do 
begin 
Parent := Form; 
height := 32; 
width := 128; 
caption := ´Button1!´; 
left := (Form.ClientWidth - width) div 2;
top := (Form.ClientHeight - height) div 2; 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  NLabel : TLabel;
begin
  NLabel := TLabel.Create(Application);
  NLabel.Parent := Form;
  NLabel.Name := ´Label1´;
  NLabel.Left := 10;
  NLabel.Top := 10;
  NLabel.Font.Size := 20;
end; 

procedure TForm1.BtNovoOnClick(Sender : TObject); 
Var 
NLabel : TLabel;
begin 
NLabel := TLabel.Create(Form); 
with Label do 
begin 
Parent := Form; 
height := 32; 
width := 128; 
text := ´Label1!´; 
left := (Form.ClientWidth - width) div 2;
top := (Form.ClientHeight - height) div 2; 
end; 
end;

  object Shape1: TShape
    Left = 283
    Top = 272
    Width = 221
    Height = 95
    Pen.Style = psClear
  end
  object Label2: TLabel
    Left = 336
    Top = 295
    Width = 131
    Height = 13
    Caption = ´Gerador de Dicion´#225´rios´
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = ´MS Sans Serif´
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end