procedure OpenForm(FormClass: TFormClass; var fm; AOwner: TComponent; fmCopy :Integer);
var
  i, j: integer;
  booOpenForm: Boolean;
  Child: TForm;
begin
  booOpenForm := True;
  j := 1 ;
  // 若Form已Create, 則呼叫到最上層, 若未Create則Create New Form
  for i := 0 to Screen.FormCount -1 do
  begin
    if Screen.Forms[i].ClassType = FormClass then
    begin
      Child := Screen.Forms[i];
      if fmCopy <= 1 then
      begin
        if Child.WindowState = wsMinimized then
           ShowWindow(Child.handle, SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle, SW_SHOWNA);
        if (not Child.Visible) then
          Child.Visible := True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm) := Child;
        Exit;
      end else
      begin
        ShowWindow(Child.handle, SW_SHOWMINIMIZED);
        Inc(j);
        if j > fmCopy then
        begin
          ShowWindow(Child.handle, SW_SHOWNORMAL);
          booOpenForm := False;
          ShowMessage('超出系統限制, 無法開啟');
        end;
      end;
    end;
  end;      if booOpenForm then
  begin
    Child := TForm(FormClass.NewInstance);
    TForm(fm) := Child;
    Child.Create(AOwner);
    Child.FormStyle := fsMDIChild;
    Child.AutoScroll := False;
    Child.AutoSize := False;
    Child.Visible := True;
    Child.Caption := Child.Caption   ' - '   IntToStr(j);
  end;
end;