Your barcode reader is probably presenting itself as a keyboard driver to Windows and so it's a little tricky (by default in Windows, there's no way to tell, if there's two keyboards attached, which keyboard sends a particular keystroke).
It might be doable using Windows Raw Input, which presents each device separately, but I don't have an example of using raw input in Delphi on hand.
Como Quem saber ESTÁ enviando Dados NA USB? Seu leitor de código de barras é, provavelmente, apresentando-se como um driver de teclado para o Windows e por isso é um pouco complicado (por padrão no Windows, não há nenhuma maneira de saber, se há dois teclados em anexo, que o teclado envia um keystroke particular).
Pode ser feita usando Windows Input-primas, que apresenta cada dispositivo separadamente, mas eu não tenho um exemplo do uso de entrada prima em Delphi na mão.
Also courtesy of Google translate