创建窗体内存错误~~求解

程序初始化时先显示登录窗体begin
  Application.Initialize;
  if TLoginFrm.Execute then
  begin
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TMainFrm, MainFrm);
  Application.Run;
  end
  else
    Application.Terminate;
end.登录窗体显示
class function TLoginFrm.Execute;
begin
  with TLoginFrm.Create(nil) do
  begin
    try
      Result := ShowModal = mrOk;
    finally
      Free;
    end;
  end;
end;我又在登录窗体上加了一个注册按钮，showmodal注册窗体，结果内存错误，求教大大们~~
procedure TLoginFrm.lbl_RegisterClick(Sender: TObject);
begin
  with RegisterFrm.Create(nil) do
  begin
    ShowModal;
  end;
end;