MDI窗体调用fsnormal窗体报出内存错误

Question

MDI主窗体代码：
unit UnitMzGhFk;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ImgList, ToolWin;type
  TFormMzGhfk = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    ImageList2: TImageList;
    TBclose: TToolButton;
    TBtool: TToolButton;
    CoolBar2: TCoolBar;
    TabControl1: TTabControl;
    StatusBar1: TStatusBar;
    PMtool: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormMzGhfk: TFormMzGhfk;implementation
uses UnitMzFkzc;
{$R *.dfm}procedure TFormMzGhfk.N4Click(Sender: TObject);
begin
    //showmessage('自己心算去！！！');
end;procedure TFormMzGhfk.N5Click(Sender: TObject);
begin
     if  FormMzfkzc = nil then
         FormMzfkzc.Create(self);
     FormMzfkzc.Show;end;
end.
fsNormal 窗体代码：
unit UnitMzFkzc;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, DB, ADODB;type
  TFormMzFkzc = class(TForm)
    QrMaster: TADOQuery;
    DsMaster: TDataSource;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    EditStart: TEdit;
    EditEnd: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormMzFkzc: TFormMzFkzc;implementation
uses unitDataModule;
{$R *.dfm}procedure TFormMzFkzc.FormShow(Sender: TObject);
begin
     QrMaster.Close;
     QrMaster.SQL.Text := 'select Zcrq,Zcdjr,JzkLx,jzkNo from Tb1_Ykt_CkRegist where 1=0' ;
     QrMaster.Open;
     QrMaster.Insert;
     QrMaster.FieldByName('zcdjr').AsString := '1010' ;
     QrMaster.FieldByName('jzklx').asstring := '普通卡' ;
     DateTimePicker1.DateTime := now();end;procedure TFormMzFkzc.Button2Click(Sender: TObject);
begin
    Close;
end;procedure TFormMzFkzc.Button3Click(Sender: TObject);
begin
    editstart.Enabled := false;
end;procedure TFormMzFkzc.CheckBox1Click(Sender: TObject);
begin
     if CheckBox1.Checked = true then
     begin
         Dbedit2.Enabled := false ;
         EditStart.Enabled := true ;
         EditEnd.Enabled := true ;
         EditStart.SetFocus;
         CheckBox2.Checked := false ;
     end;
end;procedure TFormMzFkzc.CheckBox2Click(Sender: TObject);
begin
     if CheckBox2.Checked = true then
     begin
          EditStart.Enabled := false ;
          EditEnd.Enabled := false ;
          Dbedit2.Enabled := true ;
          Dbedit2.SetFocus ;
          checkbox1.Checked := false ;
     end ;
end;procedure TFormMzFkzc.Button1Click(Sender: TObject);
var datastart,dataend : String ; i,flags,flage : integer ;
begin
     datastart := trim(EditStart.Text) ;
     dataend   := trim(EditEnd.Text);
     if  (datastart = '') or (dataend = '') then
     begin
         application.MessageBox('输入框没有输入内容！请输入','提示：',MB_ICONASTERISK);
         exit;
     end;
     val(datastart,i,flags);
     val(dataend,i,flage);
     if (flags <> 0) or (flage <> 0) then
     begin
         application.MessageBox('请输入数字','提示：',MB_ICONASTERISK);
         exit;
     end;
     if  IntToStr(length(datastart)) = IntToStr(length(dataend)) then
     begin
         application.MessageBox('开始卡号和结束卡号长度不一致！','提示：',MB_ICONASTERISK);
         exit;
     end;
end;procedure TFormMzFkzc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     //action := caFree ;end;procedure TFormMzFkzc.FormDestroy(Sender: TObject);
begin
     //FormMzFkzc := nil ;
end;end.内存，

Answer 1

procedure TFormMzGhfk.N5Click(Sender: TObject);
begin
     if  FormMzfkzc = nil then
         FormMzfkzc := TFormMzfkzc.Create(self);
     FormMzfkzc.Show;end;
end.