Нужен пример скрипта. Любой скрипт что-ли, будучи выполнен тыщу раз подряд, приводит к 100% загрузке?

Ты меня запутал.
То, что сотни последовательных вызовов ExecScriptText на порядок-другой медленнее одного-единственного - это нормально. Каждый раз происходит инициализация и финализация скриптера, а manual disconnect означает лишь то, что по окончании вызова ExecScriptText коннект не будет закрыт и все.
Сам коннект живет отдельно, и при следующем вызове ExecScriptText просто подключается к скриптеру.

Сливай все в один файл перед выполнением, если время критично.
Что мешает при сборке скриптов в один файл добавлять комментарии с именем файла?

Либо собирай отдельный скрипт с INPUT и выполняй его.

Alex TruhinПечально, там разница не менее 2 порядков. Он при инициализации метаданные перечитывает? Потому что первые вызовы идут быстро, а чем дальше тем медленнее.


Метаданные он не перечитывает - они ему попросту не нужны.
17 и 583 - это тики или все же секунды? Если секунды, то что-то действительно многовато. Надо смотреть.

Alex TruhinТо, что при ошибке, я вижу только последний запрос с ошибкой, а не комментарий. Можно было бы, привязать имя файла к номеру строки, но номеров строк с ошибкой тоже нет.
Есть рекомендации?

Здесь в AText есть номер строки:
TScriptBeforeExecStatementFunc = function (AStmtText, AText : PChar) : integer;

Про INPUT я уже сказал, в этом случае получишь имя файла сразу, без нахлобучивания комментариев и сопоставления номеров строк.

Нашел проблему. Попробуй свежую версию.