DLL问题，帮帮忙！

Question

procedure TForm2.Button1Click(Sender: TObject);
Var vOpenCard:TOpenCard;
begin
  vHandle:=LoadLibrary('D:\系统开发\卡管理系统\DLL\CardDLL.dll');
  If vHandle=0 Then
  begin
    Raise Exception.Create('DLL加载错误！！！');
    Exit;
  end;
  @vOpenCard:=GetProcAddress(vHandle,'ShowOpenCard');
  If @vOpenCard=Nil Then
  begin
    Raise Exception.Create('DLL函数错误！！！');
    Exit;
  end;
  ShowOpenCard(Application.Handle);
end;procedure TForm2.FormDestroy(Sender: TObject);
begin
  FreeLibrary(vHandle);
end;ShowOpenCard函数是DLL中的一个函数，已经放在Exports中的。
执行是提示没有声明ShowOpenCard；

Answer 1

哥们，没有调用DLL吧
在interfacefunction ShowOpenCard(参数列表):返回值；stdcall;external 'DLL文件名';