[NumLock]

так сделай:

Код:

while not Status_response do Application.ProcessMessages;