***请教调用dll问题***急！！！！（50分）

Question

各位GGJJ：
我对调用dll不太熟悉我想请教各位GGJJ:
1:一般是用静态调用dll还是动态调用；
2:现有一个'iccard.dll'我不知道怎么下手，第一步应该怎么做？
函数说明：
function COM_INIT(port,com:Byte; baud:Word):Boolean;Stdcall;
功能：初始化串口
参数说明：
  port-端口号, 取值范围[0|1|2|3]
  com -串行口, 取值范围[COM1|COM2|COM3|COM4]
  baud-通讯速率，取值范围[2400|4800|9600|19200]
        写卡机速率固定为19200
        采集器速率固定为9600
返回类型- 布尔型
  True - 初始化成功
  False- 初始化失败
function Connect(port,addr:Byte; intms:Byte; maxms:Word):word;stdcall;
功能：联接端口port上的机器addr, 在与机器通讯时必须先调用该函数
参数说明：
  port-端口号, 取值范围[1|2|3]
  addr-机器号, 取值范围[2-254]
  intms-数据包间隔时间毫秒
  maxms-最长等待时间毫秒
返回类型- 整型
  0 - 联接成功
  other - 出错代码
要怎么样声明和调用它的函数（最好能有原代码）麻烦各位帮我想办法！万分感谢+50分

Answer 1

function COM_INIT(port,com:Byte; baud:Word):Boolean;Stdcall;external 'iccard.dll'
name 'COM_INIT';

Answer 2

function xxx: Boolean;
var
  Handle: THandle;
  ComInit: function (port,com:Byte; baud:Word):Boolean;stdcall;
begin
  Result := False;
  Handle := LoadLibrary(‘iccard.dll’);
  if Handle <> 0 then
  begin 
    @ComInit := GetProcAddress(Handle, ‘COM_INIT’);
    if @ComInit <> nil then Result := @ComInit(...);
    FreeLibrary(Handle);
  end;
end;