buscar por el foro.
Pero estoy dudando si lo postee.
Lo que recuerdo que hice, fue tirar un Timer, darle a la propieda time = 500 y enable:= false, luego programa el evento ontimer del mismo, te muestro.
Código Delphi
[-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
para que termine de pasar los datos.
Timer1.Enabled:= true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:= false;
end;
Acabo de recordar que pregunta hace 2 o 3 semanas como hacer para que una aplicacion mande enter o sea para que mi aplicación aprieta la tecla enter y eso era para dar una solución un poco más elegante a lo que acabo de escribirte.
Estaba teniendo el mismo problema pero en mi caso, no tengo acceso al lector, porque el programa lo hago a distancia.
Bueno, espero que te sirva.