创建窗体时提示'The window does not have scroll bars 错误怎么解决？

我的程序中的一个mdi子窗体中的按钮调用一个sdi窗体，刚执行到下面的application.CreateForm(TfrmAddPartNo,frmAddPartNo);就保持如下，这是什么问题造成的呢？得怎么解决？//调用代码
procedure TfrmPartNoInfo.btnAddClick(Sender: TObject);
begin
  application.CreateForm(TfrmAddPartNo,frmAddPartNo);
  frmAddPartNo.ShowModal;
  frmAddPartNo.Free;
end;//异常提示
project mcs.exe raised exception class EOutofResources with message
'The window does not have scroll bars '