Может Result:=Hk, а то некомпилится, а так и это пробовал, но положение неменяется.
Пир обычном запуске все пашет, а вот при автозагрузке нехочет.