MDI динамическое создание компанента не дочерней форме

[Grandistok]

Доброго времени суток Помогите начинающему чайнику если не трудно

Задача: Создаю MDI приложение (первый раз в жизни так что ногами сильно не пинать ) при динамическом создании дочерней формы на ней должна динамически создаваться кнопка.

Решаю это путем помещения в FormActivate дочерней формы кода создающего кнопку.

Листнинг:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus ,Unit2;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    New1: TMenuItem;
    Add1: TMenuItem;
    procedure Add1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MDIChildForm: TForm2;
implementation

{$R *.dfm}

procedure TForm1.Add1Click(Sender: TObject);
begin
  MDIChildForm := TForm2.Create(Owner);
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}


procedure TForm2.FormActivate(Sender: TObject);
var
  btn: TButton; //Переменная для кнопки
begin
  //Создаем новую кнопку
  btn:=TButton.Create(Form1);
  btn.Parent:=Form1;
  //Устанавливаем расположение новой кнопки
  btn.Top:=Form1.Height div 2+20;
  btn.Left:=10;
  btn.Width:=100;
  btn.Height:=25;
  btn.Caption:='Новая кнопка';
end;

end.

В результате чего у меня успешно создается кнопка на родительской форме... В то время как мне надо на дочерней . что собственно логично ведь у меня в коде написано

procedure TForm2.FormActivate(Sender: TObject);
var
  btn: TButton; //Переменная для кнопки
begin
  //Создаем новую кнопку
  btn:=TButton.Create(Form1);
  btn.Parent:=Form1;
  //Устанавливаем расположение новой кнопки
  btn.Top:=Form1.Height div 2+20;
  btn.Left:=10;
  btn.Width:=100;
  btn.Height:=25;
  btn.Caption:='Новая кнопка';
end;

А если я меняю в выше изложеном куске Form1 на Form2 то получаю ошибку: First chance exception at $7C812AEB. Exception class EAccessViolation with message 'Access violation at address 00454DE3 in module 'Project1.exe'. Read of address 0000004C'. Process Project1.exe (3340) Ругается на строчку btn.Top:=Form2.Height div 2+20;

Вот теперь собстенно вопрос почему? И как это исправить? Или на дочерней форме надо создавать элементы как то иначе? В объщем разясните чайнику в чем собственно грабли и как с этим бороться? Или ссылочкой поделитесь а то искал нигде не нашел

[spamer]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus ,Unit2, StdCtrls;

type
TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    procedure N21Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  Form1: TForm1;
  MDIChildForm: TForm2;
  btn: TButton;
implementation

{$R *.dfm}

procedure TForm1.N21Click(Sender: TObject);
begin
MDIChildForm := TForm2.Create(Application);

btn:=TButton.Create(Application);
btn.Parent:=MDIChildForm;

btn.Name := 'But1';
btn.Top:=100;
btn.Left:=100;

btn.Width:=100;
btn.Height:=25;
btn.Caption:='Новая кнопка';
end;

end.

з.ы. думаю разберетесь. если че - пишите.

[Grandistok]

Спс огромное получилось Я так понимаю что btn.Parent:=MDIChildForm; помещает кнопку на текушую дочернюю форму? А я использовал btn:=TButton.Create(Form1); где четко прописовал на какой форме должна быть кнопка. Поправьте если не так.

А если я хочу добавить элемент на уже созданую ранее форму? Как к ней обратиться? Ведь дочерних форм может быть сколько угодно а я незнаю ее имени.