Execute !!!???
Простой код:
Script.Lines.Text:=ScriptText;
Script.Run;
Далее вызываем этот код еще и еще...
ПОЧЕМУ ТЕКСТ СКРИПТА ВЕРНЫЙ, А СКРИПТ ВЫПОЛНЯЕТСЯ ВСЕ БОЛЬШЕ И БОЛЬШЕ РАЗ!!!??? Подставляем другой текст скрипта - в начале выполняется все что было до него
((((((
Такое впечатление что Script накапливает исполняемый код. Можно конечно перед этим делом написать Script.Clear, но это будет накладно.
...Script.Lines.Clear не помогает
Script.Lines.Text:=ScriptText;
Script.Run;
Далее вызываем этот код еще и еще...
ПОЧЕМУ ТЕКСТ СКРИПТА ВЕРНЫЙ, А СКРИПТ ВЫПОЛНЯЕТСЯ ВСЕ БОЛЬШЕ И БОЛЬШЕ РАЗ!!!??? Подставляем другой текст скрипта - в начале выполняется все что было до него

Такое впечатление что Script накапливает исполняемый код. Можно конечно перед этим делом написать Script.Clear, но это будет накладно.
...Script.Lines.Clear не помогает
Комментарии
Этот Clear очищает всё у этого самого Script, после чего приходится добавлять классы, методы, переменные и т. д. снова.
ВОТ ВЧЕРА НАШЕЛ ЧТО НУЖНО СДЕЛАТЬ:
Script.Statement.Clear