动态连接库求救(100分)

我的*.dll文件的出口函数有两个：showformcreate，shownumber
procedure showformcreate
begin
application.formcreate(TForm1,form1);
end;

调用文件的调用语句：
libhandle:=loadlibrary(PChar('*.dll)');
@showformcreate:=getProcAdress(libhandle,'showformcreate');
@shownumber:=getProcAdress(libhandle,'shownumber');
if @showformcreate<>nil
then
showformcreate;
为什么在运行时没有响应呢？

procedure showformcreate;stdcall
begin
application.formcreate(TForm1,form1);
form1.showmodal;
end;
试一下，不知道行不行.^_^

up OK