У нас есть устаревшее приложение Delphi, в котором весь код находится только в основном потоке. В одной из функций мы вызываем функцию сервисного уровня для получения записей базы данных. Перед запросом сервисного уровня курсор по умолчанию меняется на курсор SQL WAIT, а после получения ответного курсора возвращается к курсору по умолчанию.
Но при запуске приложения (при вызове этой функции) приложение показывает курсор WAIT SQL в течение 3 секунд, а затем приложение переходит в состояние НЕ ОТВЕТЫ, а курсор WAIT SQL меняется на обычный курсор WAIT Windows.
Кто-нибудь может подсказать, почему возникает эта проблема и как это исправить? Мы можем выполнить многопоточность, чтобы устранить это, но я не должен заново реализовывать потоки в этом коде.