delphi的dll中自定义的类如何在调用程序中实例化?

Delphi(Pascal) code:
unit Unit1;

interface
type
Module=class
published
function ReadTest: integer;
procedure WriteTest(const Value: integer);
published
property Test:integer read ReadTest write WriteTest;
end;
ModuleClass=class of Module;


implementation

{ Module }

function Module.ReadTest: integer;
begin
result:=Test;
end;

procedure Module.WriteTest(const Value: integer);
begin
Test:=value;
end;

end.


Delphi(Pascal) code:
function GetModule():ModuleClass;stdcall;
begin
result:=Module;
end;

上边两个是在dll中定义的.
function GetModule():ModuleClass;far;external 'Project3.dll';
Delphi(Pascal) code:

procedure TForm4.Button1Click(Sender: TObject);
var
m1:ModuleClass;
m:Module;
begin
//

m1:=GetModule();

m:=m1.Create() as Module;
m.Test:=100;
end;

像上边这样行吗?
我实际调用的时候.内存溢出了.好像.不知道咋做!!

---

学习

---

我晕.看到有回复.好高兴.但我担心的事还是发生了......

---

引用

不用 interface 会产生许多麻烦，光一个内存管理就够呛的了，再弄点儿 is/