Динамическое создание формы

[Rifler]

Вобщем задание такое - есть форма и на ней кнопка. По щелчку на эту кнопку должна создаться еще одна форма с такой же кнопкой, по щелчку на которой тоже создается форма и тд и тп
Я сделал так, но чет не фурычит

procedure TForm1.Button1Click(Sender: TObject);
var frm: TForm1;
begin
   frm:=TForm1.Create(self);
   frm.Parent:=self;
end;

Подскажите

[dr.Chas]

var frm: TForm;
begin
   frm:=TForm.Create(self);
   frm.Name:='form2';
   frm.Parent:=self;

   frm.Show;
end;

[Rifler]

Спасибо за помощь, я затупил

А еще вопрос - новые формы появляеются внутри первой формы. Что нужно указать в Owner чтобы форма была отдельно?

[_SERGEYX_]

procedure TForm1.CreateForm;
var frm: TForm; btn: TButton;
begin
   frm:=TForm.Create(nil);
   frm.Left:=Random(800);
   frm.Top:=200;
    btn:=TButton.Create(frm);
   btn.Left:=100;
   btn.Top:=100;
   btn.Parent:=frm;
   btn.Caption:='Кнопка';
   btn.OnClick:= Button1.OnClick;
   frm.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateForm;
end;

[Rifler]

Пишет Undeclared Identifier: 'CreateForm'
и можно, пожалуйста, пояснения к коду

[_SERGEYX_]

Добавь в type ....

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


А пояснять вроде нечего.
frm:=TForm.Create(nil); //создаем свободную форму
frm.Left:=Random(800);//Это чтобы формы видны были, иначе будут одна под другой
frm.Top:=200;
btn:=TButton.Create(frm);//создали кнопку
btn.Left:=100;
btn.Top:=100;
btn.Parent:=frm;//Родитель - наша форма
btn.Caption:='Кнопка';
btn.OnClick:= Button1.OnClick;//Событие при клике как и у Button1, т.е. выполнить эту процедуру еще раз.
frm.ShowModal;

Да, потом в конце нужно "грохнуть" все созданные формы, чтобы в памяти не висели.
Например, так

var i: Integer;
begin
    for I:= 0 to ControlCount -1 do
      if (Controls[I] IS TForm) then
        (Controls[I] AS TForm).Free;
end;

[evg_m]

frm.Parent:=nil;
//Parent свойство ответственое за показ(место отображения)
//Owner (то что указываем в Create) свойсто ответственное за время жизни (определяет когда компонент будет удален без нашего участия).