[CottonMouth]

Hola a todo! tengo este codigo y lo que quiero es crear un boton en el Form1 y que al hacer click en este boton me cree un nuevo formulario yo lo hice asi, al ejecutarlo me crea el boton pero al hacer click en el no pasa nada, que estoy haciendo mal ? Este es el codigo:

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
          private
    { Private declarations }
      MiBoton:TButton;
      Form2: TForm1;
     procedure MiBotonClick(Sender: TObject);
 
 
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 
 
   implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      MiBoton:=TButton.Create(Self);
      MiBoton.Parent:=Form1;
end;
procedure TForm1.MiBotonClick(Sender: TObject);
begin
       Form2:=TForm1.Create(Application);
       Form2.Caption:='Pruductos';
       Form2.Show;
 
end;
end.

Bueno espero que me puedan ayudar. Besos. Luly