procedure TfrmMain.buttonExecute(Sender: TObject);
begin
  Case TAction(Sender).Tag of
    100:Begin
        //검색
          If MDIChildCount > 0 Then
          Begin
            If Self.ActiveMDIChild.Name = 'frmInsa' Then     ----인사일경우
              frmInsa.Un_Search
            Else  If Self.ActiveMDIChild.Name = 'frmcodem' Then   --코드일경우
              frmcodem.Un_Search
            Else
              ;
          End
          Else Showmessage('프로그램이 실행되어 있지 않습니다')     ;
        End;
    end;

저렇게 프로그램이 늘어 나면 늘어날수로
검색해야 할 코딩이 늘어 나는뎅
간단하게 2줄로 가능 할것 같은데 무슨 방법 없을까요??
제가 생각을 해봤는뎅  가상폼을 하나 만들어서
그 가상폼이름을 실행되어 있는 이름을 받고
받은 가상폼 이름을 이용해서 Un_search 을 실행 하는거에요~~
Un_Search 는 어떤 폼이던 같구요~ 모두 같습니다..
플그램으로 그걸 반영할려니~ 잘 안되네요~~Un_Search 를 당장 찾을수 없어서요~~
가상폼은 Un_Search 는 없잖아요~~~ 꽁수라도~~~ 어찌 부탁 합니다..