Detectar entrada si fue por lector de codigo de barra

[mentor]

Hola tengo TPV y algunas veces el foco no esta en el textedit y cuando lee el lector en ese momento no se dispara los eventos programado en ese objeto y si no atiende el operador pasa el articulo sin facturar y es un problema

Mi pregunta hay algna funcion o truco para poder lograr identificar si lo introducido es por teclado o lector, El lector es honeywell USB.

he visto varios hilos ya pero no logro realizar algunos

Desde ya muchas gracias

[Casimiro Noteví]

Pero lo que tienes que hacer es dar el foco al textedit correcto.

[mentor]

Hola Casimiro gracias por responder. efectivamento si tengo que darles el foco y la cadena de la lectura. y alli tengo el problema. no se como detectar. se me ocurre en el evento onkeypress del formulario
pero no puedo continuar

Código Delphi [-]
procedure TFRMTpv.FormKeyPress(Sender: TObject; var Key: Char);
begin

 if txtcodigobarra.Focused = False then
    begin
     // Aca me falta el codigo para detectar si es por lector de codgo de barra y pasar los datos al txtcodigobarra.text    
     // y continuar con el codigo
   end;