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
[-]
inicio := GetTickCount;
fin := GetTickCount;
if fin-inicio<= valorPequeño then
else