Aziz, добавь событие в конце процедуры procedure THIMoveWindow._work_doMove; и не парься.

--- Добавлено в 2023-03-26 00:57:18

можешь просто пока через Debug проверить_debug('stop');