var
  F : function(参数列表):返回值类型;stdcall;
  H : THandle;
begin
  H := LoadLibrary('你的动态链接库路径及名字');
  try
    if H<>0 then
      begin
      @F := GetProcAddress(H, 'dll中公开的过程或函数名字');
      F(参数列表);
      end;
  finally
    FreeLibrary(H);
  end;
end;

异常处理可能写得有点颠倒，自己顺一下吧