Разбить файл на меленькие файлы

[Aerias]

Прошу помощи в данной задаче я новичок в этом

Пользователь выбирает исходный файл, и получает кучу файликов в некоторой папке
название файла-результата всегда 015115001 или 015115002 (по выбору пользователя)
расширение любое (разное)

пример исходного файла : 29_10
пример результата : 015115001.x1

т.е. требуемые блоки начинаются

=+-ВЦ-902 ТЕЛЕГРАММА НАТУРНЫЙ ЛИСТ

(:902

и заканчиваются
: )

Как происходит цикл нахождения каждого блока и его сохранение?

[FaTaL]

Т.е. файлик текстовый?
Если да, то грузите файл в TStringList и в цикле for i:=0 to TStringList.Count - 1 do

[Aerias]

Простите, но одна строчка мне ничем не поможет Если можно подскажите
нахождение блоков, их сохранение через

while not EoF(F) do
begin
Readln(F,Str);

[Человек_Борща]

хм а в результирующий фаил сохраняется только сам блок ( : : ) ?

[Aerias]

Сообщение от Человек_Борща

хм а в результирующий фаил сохраняется только сам блок ( : : ) ?

в архиве 2 файлика:
файл '29_10' - откуда нужно вырезать блоки в отдельные файлики
файл '015115001.x1' - пример выходящего файлика
т.е. сохраняются



=+-ВЦ-902 ТЕЛЕГРАММА НАТУРНЫЙ ЛИСТ // начало блока
...
тело блока
...

: ) //конец блока

[Человек_Борща]

напишите мне в icq 594418003 или 100500334 я вам с этим помогу(Знаю как решить задачу).