dll的問題，我等到花兒都謝了.(20分)

dll中是這樣寫的：

function loginform:longint;
var
dllform:Tlogin;
begin
dllform:=TLogin.Create(application);
dllform.ShowModal;
dllform.Free;
end;

{$R *.res}
exports
loginform;

begin
end.


下面是調用：
var
Form1: TForm1;
function loginform:longint;stdcall external 'project1.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
loginform;
end;
是不是dll過程有問題啊？
顯示出錯信息為：
project project1.exe raised exception class EOLesyserror with message 'moniker 並未參照到存放庫'.Process stopped.
請問是什麼問題，謝。。。

function loginform:longint;
var
dllform:Tlogin;
begin
dllform:=TLogin.Create(nil);
result:=longint(dllform);
try
dllform.ShowModal;
finally
dllform.Free;
end;
end;

既然用的函数也得有个返回值吧：）
还有你有没有加上sharemem 这个单元

調用時還是報相同的錯誤，請指教，謝謝。。