建立子窗體時出現錯誤“cannot make a visible window modal”

（1）首先在project的options中,將子視窗改為不自動建立,即“Available forms”。
（2）如果窗體是MDIChild的話,是不可以ShowModal的,可以Show。因為ShowModal與Show是不同的。
         ShowModal時，要求Visiable=False,假使你設定為Visiable=True就會產生錯誤,而子窗體設定為MDIChild時Visiable自動設定為True;
          Show時,要求Visiable=True或False都不會錯。

ShowModal函式定義:
 function TCustomForm.ShowModal: Integer; 
 var 
     WindowList: Pointer; 
     SaveFocusCount: Integer; 
     SaveCursor: TCursor; 
     SaveCount: Integer; 
     ActiveWindow: HWnd; 
 begin 
     CancelDrag; 

     if Visible //Form.visible=True.
        or not Enabled or (fsModal in FFormState) or
        (FormStyle = fsMDIChild) then
    raise EInvalidOperation.Create(SCannotShowModal); //產生一個raise，出錯誤。
        其中SCannotShowModal = 'Cannot make a visible window modal';
            ...
         end   
Show函式定義： 
procedure TCustomForm.Show; 
begin 
    Visible := True; 
    BringToFront; 
end;