Выше приложил исправленный вариант, добавлена еще одна переменная.
Переменная Heat точно сделана глобальной и ретайн? После перезаливки программы ретайн слетает.