[Страдалецъ]

Иногда, у компилятора Дельфи сносит крышу. Поведение очень схожее. Помогает просто переформатирование кода, добавление нафик не нужных бегинов и т.д. Попробуйте тупо в критическую секцию поместить вызов вашей процедуры.