Seguramente tienes un bucle que hace un recorrido para importar los datos; Dentro del bucle pon la línea:
Código Delphi
[-]
Application.ProcessMessages;
Para que el proceso no quede bloqueado y p`rueba con el mismo código que tienes (OnKeyPress).
De todas formas, ayudaría que pusieras el código que estás utilizando.