Навик вылетает и непонятно почему

[Fordewind]

Черт его знает что это, но я бы попробовал: 1) поставить

SLEEP(1000);

перед загадочной строкой
2) Поставил бы

Sheet.Range('F'+FORMAT(StrNum)).Value := FORMAT(_acc);