Помогите переписать JavaScript на Delphi
 

Есть скрипт который делит текстовый файл на блоки и каждый из этих блоков записивает в отдельный файл.
Помогите переделать этот скрипт под Delphi.
Файл скрипта и пример текстового файла в вложеном файле.
Буду очень благодарен за помощь.

VitHAK, с после праздников, возможно накидаю черновик. Ранее увы никак

lxa85, Спасибо! Буду ждать.

Всё, дальше ленюсь. :)
В архиве Delphi "болванка".
Документ загружается в Memo1, далее через Memo2 потихоньку раскладывается по файлам.
Можно ввести более корректное формирование имени фала, но я ленюсь :)
Так же прикрепляю вспомогательный для меня скрипт на Python е, которым последний раз я разбирал лог ошибок к сайту.
(сменить расширение с .txt на .py)
Питон править и запускать легче и проще, но пользователям наверно придется писать оболочку.