if pgFormID = 'CUSTMST' then
  begin
    if MDIChildCount = 0 then pvFChk := 'TRUE'
    else
      begin
        for  i := 0 to MDIChildCount - 1 do
        begin
          if MDIChildren[i] is TFrmCustMst then
            begin
              FrmCustMst.Top  := gTop ; FrmCustMst.Left := gLeft;
              FrmCustMst.BringToFront;
              pvFChk := 'FALSE';
              exit;
            end;
        end;
        pvFChk := 'TRUE';
      end;
    if pvFChk = 'TRUE' then
    begin
      FrmCustMst := TFrmCustMst.Create(Application);
      FrmCustMst.Top  := gTop ; FrmCustMst.Left := gLeft;
      Exit;
    end;
  end;

위와 같이 pgFormID 를 스트링으로 받아와서 그 스트링에 해당하는
폼을 실행 했습니다.
그런데 위와 같이 하니까..폼이 100개변 위와 같은 코딩이100개가 있어야
하는 불편함이 있는데
아래와 같이 폼을 Close 할때처럼
이걸 한번에 해결할 방법이 없나요 ?

  for  i := 0 to MDIChildCount - 1 do
  begin
    if MDIChildren[i].Active then
    begin
      MDIChildren[i].Free;
      Exit;
    end;
  end;