onminimize ved form.

Jeg har to forms .. den ene creater den anden ved en

var
  child: TForm2;
begin
  child := TForm2.Create(Application);
  with child do
  begin
    //gøre et eller andet
  end;
end;

anyway.. nu bliver der lavet en ny form og fra denne vil jeg gerne kunne fange når brugeren bruger minimize knappen øverst i højre hjørne af formen.. men hvordan pokker gør jeg det?

jeg har fundet følgende på nettet som virker når der er tale om en enkelt form/application.. men ikke når jeg kører koden på min createt form2.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure AppMin(Sender: TObject);
    procedure AppRes(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMin;
  Application.OnRestore := AppRes;

end;

procedure TForm1.AppMin(Sender: TObject);
begin
  showmessage('minimize');
  form1.Hide;
end;

procedure TForm1.AppRes(Sender: TObject);
begin
  showmessage('restore');
  form1.Show;
end;


end.

Er der nogen som kan hjælpe mig.?