내용은 아래와 같습니다.에러명은 다음과 같구요 'A Win32 API function failed'

호출부분..

implementation



{$R *.DFM}

procedure ed(ss:string);far;external'edit.dll';



procedure TForm1.Button1Click(Sender: TObject);

begin

ed(edit1.text);

end;



DLL프로젝트부분

library edit;



uses

SysUtils, Classes,

edit1 in 'edit1.pas' {Form1};

exports

ed;

{$R *.RES}

begin

end.



DLL 구현부분..

procedure ed(ss:string); export;



var

Form1: TForm1;



implementation

var

s: String;

{$R *.DFM}



procedure ed(ss:string); export;

var

eed:Tform1;

begin

eed:=Tform1.create(application);

s := ss;

eed.Visible := true;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(s);

end;