В коде вот еще что есть -- if key = '' then exit;. Скорее всего, именно по причине RunTime Errora и была правка (см. мой предыдущий пост).