SetupDiGetClassDevs 的问题

在Delphi中， 我申明并赋值一个TGUID：GUID_CLASS_D12_BULK，

然后调用下面的函数

  HHardDevinfo:= SetupDiGetClassDevs(@GUID_CLASS_D12_BULK,nil,0,DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);

此函数包含在SetupApi.pas 里面， 经编译已经成功。但执行时会在上面的调用处出错，信息如下：

Access violation at address 00000000, Read of address 0000000.

请教好心人帮忙看看，会是什么原因？