续上次MDI噶问题~

Question

原来不是子窗体不见了~是子窗体的内容都没了~
主窗体的代码:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, XPStyleActnCtrls,
  ActnList, Unit2, ExtCtrls, Unit3, Unit4, ImgList;type
  Tmain = class(TForm)
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    mainM: TAction;
    mainD: TAction;
    mainS: TAction;
    mainH: TAction;
    Image1: TImage;
    mainMz: TAction;
    mainDy: TAction;
    mainDz: TAction;
    mainSz: TAction;
    mainHk: TAction;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    ImageList1: TImageList;
    procedure mainDyExecute(Sender: TObject);
    procedure mainDzExecute(Sender: TObject);
    procedure mainSzExecute(Sender: TObject);
    procedure mainHkExecute(Sender: TObject);
    procedure mainMExecute(Sender: TObject);
    procedure mainDExecute(Sender: TObject);
    procedure mainSExecute(Sender: TObject);
    procedure mainHExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
    { Private declarations }
  public
    { Public declarations }
  end;var
  main: Tmain;implementation{$R *.dfm}
procedure Tmain.mainDyExecute(Sender: TObject); var formdefine:TForm;
begin
  formdefine:=TForm.Create(Application);
  Formdefine.FormStyle:=fsMDIChild;
  Formdefine.Show;
  Formdefine.WindowState:=wsMaximized;
  formdefine.OnClose :=  FormClose;
  formdefine.Free;
end;          //能多窗体~但内容全没了.上次说过的我都试过了~不行啊procedure Tmain.mainDzExecute(Sender: TObject);begin
  fform3.FormStyle:=fsMDIChild;
  fform3.Show;
  fform3.WindowState:=wsMaximized;
  fform3.Free;
end;            //正常的但不能多子窗体procedure Tmain.mainSzExecute(Sender: TObject);
begin
  close;
end;procedure Tmain.mainHkExecute(Sender: TObject);
begin
  AboutBox.Show;
end;procedure Tmain.mainMExecute(Sender: TObject);
begin
  actionmanager1.GetParentComponent;
end;procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;end.
子窗体的代码:
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, ActnList, XPStyleActnCtrls, ActnMan,
  ToolWin, ActnCtrls, ImgList;type
  TFdefine = class(TForm)
    ActionToolBar1: TActionToolBar;
    ActionManager1: TActionManager;
    Chi1New: TAction;
    Chi1Edit: TAction;
    Chi1Save: TAction;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Chi1Cancel: TAction;
    Chi1Delete: TAction;
    Chi1Quit: TAction;
    ImageList1: TImageList;
    procedure FormCanResize(Sender: TObject; var NewWidth,
     NewHeight: Integer; var Resize: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Fdefine: TFdefine;implementation{$R *.dfm}
  procedure TFdefine.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Cascade;
end;
procedure TFdefine.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;end.