먼저 ua01 유닛에서 asdfunc 유닛을 첨가 해야 합니다.
   (Ua01 유닛 상태에서 File -> Use Unit -> asdfunc
    으로 유닛을 첨가해야합니다.)

   다음으로 작업을 쉽게 하시려면
   asdfunc 유닛에서 ????? 한곳을
   procedure TDataModule1.form_clear (aa: TForm) 으로 바꿉니다.


   다음으로 Ua01 유닛으로 가서  form_clear(????);  ==>> 을
   DataModule1.form_clear (self) 로 바꾸어 줍니다.

   그리고 ^^
   Ua01 유닛에서 버튼 누르면 동작되는 이벤트 처리를
   (aa.Components [0] as TEdit).Text := ' ';  으로 바꾸어야 합니다.

   그럼..