Динамическое создание компонентов

unit UnitMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DesignTimeFormUnit, RunTimeFormUnit;
 
type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MainForm: TMainForm; DesignTimeForm: TDesignTimeForm;
 
implementation
 
{$R *.dfm}
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
DesignTimeForm:=TDesignTimeForm.Create(Self);
DesignTimeForm.Show;
 
end;
 
procedure TMainForm.Button2Click(Sender: TObject);
 
begin
RunTimeForm:=TRunTimeForm.Create(Self);
RunTimeForm.Show;
end;
 
end.
 
форма run-time:cry:
unit RunTimeFormUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Buttons;
 
type
  TRunTimeForm = class(TForm)
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  RunTimeForm: TRunTimeForm;
implementation
 
{$R *.dfm}
procedure TRunTimeForm.FormCreate(Sender: TObject);
 var  New:TButton;
begin
New:=TButton.Create(RunTimeForm);
 New.Parent:=RunTimeForm;
New.Top:=20;
New.Width:=20;
New.Left:=20;
 New.Height:=10;
 New.Name:='Button';
New.Show;
 New.Free;
 New:=nil;
 
end;
 
end.

var   MainForm: TMainForm; 
  RunTimeForm: TMainForm;{<<<<-------}   
implementation   
{$R *.dfm}   
procedure TMainForm.Button1Click(Sender: TObject); 
begin    
  RunTimeForm := TMainForm.Create(Self); 
  RunTimeForm.Show; 
 end;

New.Show;
New.Free;
New:=nil;

New.Show;
New.Free;
New:=nil;