El error te indica que estas pasando muchos argumentos a la función.
Si te fijas en la declaración de la función:
Código Delphi
[-]Function USBOpenDriver:boolean;
Esta no recibe argumentos, y tu le estas enviando:
Código Delphi
[-]usb.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&1#{feb8d079-0681-11d4-9531-0060089abc08}')
Como es una función que evalúa si pudo abrir el puerto USB, debería ser:
Código Delphi
[-]if usb.USBOpenDriver() then
...
Saludos