Como reconocer el origen de la entrada de texto en un TEdit

[rgstuamigo]

Has intentado a usar cualquiera de los evento (OnKeyPress ó OnKeyUp ó OnKeyown) del Edit en cuestion.Digo esto ya que los eventos del edit son solo implementados en el Lenguaje Delphi, si tu lector de codigo de barra, esta usando solo APIs para escribir en el Edit, los eventos anteriores nose van a ejecutar(en teoria ),caso contrario, no te servira..
Podrias hacer una simple prueba, coloca el siguiente codigo en el evento OnKeyPress del Edit;

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin      
  ShowMessage('Hola');//<--Hay que probar si se ejecuta esto al leer con el laser . 
{Si no se ejecuta, pues ya sabemos por lógica que se escribio con el teclado y no con el lazer VICTORIA}
 {Caso contrario, no sirve, no tomar en cuenta mi IDEA , DERROTA Buscar Otra Alternativa.... }
end;

Espero se haya entendido la idea.
Saludos...