안녕하세요.
말씀하신데로 수정을 하니 UnDeclare Idenfire 'TEdit' error가 납니다.
어디가 잘못됐는지 봐주시면 감사하겠습니다.
그럼 즐통.....

//-----------------
//
//-----------------
unit Ua01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tfrm01i = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    btnCFM: TButton;
    procedure btnCFMClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm01i: Tfrm01i;

implementation

uses asdfunc;

{$R *.DFM}

procedure Tfrm01i.btnCFMClick(Sender: TObject);
begin
  form_clear(self); ===>> 수정
end;

end.



//-------------------
//
//--------------------
unit asdfunc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
   ;
  procedure form_clear(aa : Tform) ; ====>> 수정

type
  TDataModule1 = class(TDataModule)

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;


implementation

{$R *.DFM}

procedure form_clear(aa : Tform ) ;
begin
   (aa.components [0] as TEdit).Text := ' ' ; ==>> 수정
end ;
end.