[droguerman]

Dudo que la haya, el lector se comporta como un teclado pero teniendo en cuenta que el lector es mucho mas rapido que cualquier humano podrias usar la funcion GetTickCount la idea seria algo asi:

Código Delphi [-]
//al empezar a escribirse valores
inicio := GetTickCount;
//al detectarse enter
fin := GetTickCount;
if fin-inicio<= valorPequeño then
   //lector
else
  //entrada digitada con el teclado