大侠，帮我看看下段代码的错误修改(先给20分，肯定不够，解决后另加)

Question

Function TDMUSB.GetPipeInfo(strDriver: String;pi :USBDInterfaceInformationType):integer;
//其中
{
  USBDInterfaceInformationType=record
        iLength :Integer;               
        bInterfaceNumber : Byte;
        bAlternateSetting : Byte;
        bClass : Byte;
        bSubClass : Byte;
        bProtocol : Byte;
        bReserved : Byte;
        lInterfaceHandle : Longint;
        lNumberOfPipes :Longint;
        Pipes:array[0..15] of USBDPipeInformationType;
   End;
}
var
  hDriverHandle : Longint;
  lBytesReturned :Longint;
  pb:pinteger;
begin
  Result:=0;
  hDriverHandle := OpenDriver(strDriver);//取得端口句柄  If hDriverHandle > 0 Then
  begin
    pb:=@lBytesReturned;
    if DeviceIoControl(hDriverHandle,
                      IOCTL_Ezusb_GET_PIPE_INFO,
                      @pi,
                      sizeof(pi),
                      @pi,
                      sizeof(pi),
                      pb,//在此处出错代码为：
//Types of actual and formal var parameters must bi identical
                      nil) then Result:=1
    else Result:=0;
    CloseHandle (hDriverHandle);//关闭
  End;
End;其中：
IOCTL_Ezusb_GET_PIPE_INFO=$220000 + METHOD_BUFFERED + (Ezusb_IOCTL_INDEX + 0) * 4;
METHOD_BUFFERED = 0;
Ezusb_IOCTL_INDEX = $800；谁能帮我改错：Up者有分

Answer 1

If hDriverHandle > 0 Then
  begin
    pb:=@lBytesReturned;
    if DeviceIoControl(hDriverHandle,
                      IOCTL_Ezusb_GET_PIPE_INFO,
                      @pi,
                      sizeof(pi),
                      @pi,
                      sizeof(pi),
                      @lBytesReturned,//pb改成这个看看。
                      nil) then Result:=1
    else Result:=0;
    CloseHandle (hDriverHandle);//关闭
  End;
End;

Answer 2

lincanwen(密码错误)：虽然我并没有验证是否正确，但是他回答了，我很感谢！！！问题现在我自己解决了，加20分后全部给他！！！