вы пытаетесь наступить на одни и те же грабли несколько раз... Зачем?
Давайте приведу ещё один пример :
Представьте слоника, бегущего по пути, который за ним рушится ( зачем? - это защита повторной активации потока), и по пути расставлены кнопки - элементы (или правильнее строка кода) . У всего есть начало и конец (по крайней мере в программировании) . Пора познакомить вас с функцией (или в Delphi с процедурами) - она имеет начало и конец. ЭТО ВАЖНО! Почему нельзя из функции запустить её саму? - подумаем на примере со слоником : он доходя до конца процедуры (или функции) нажимает на последнюю кнопку, которая "телепортирует" его на следующий путь (процедуру, или функцию. Называйте как вам нравится), восстанавливая путь по которому он бежал. (P.S: правильнее он туда попадает сразу ,добежав до конца процедуры и восстановив прежний путь его дорога цельно продолжается к следующей процедуре). Это пример простой работы простой функции (или процедуры… без разницы) . Так вот : если мы заставим слона вернуться назад на разрушенный путь , то он упадёт! И будет так падать снова, и снова, т.к дорога не восстановлена, т.к мы не дошли до конца процедуры - последней кнопки этой процедуры, которая восстанавливает путь...