[[coso]]

Hola, seria algo asi...

Código Delphi [-]

void Comenzar()
{
       TStringList ls;
       int numeroarchivo;
       char *nombrearchivo = 'nombre';

       ls = TStringList.Crear(nulo);
       ls->CargarArchivo(nombrearchivo);

       for (unsigned char i;i <= ls.items.Count - 1;i++)
       {
            if (ls[i] = marcador_inicio)
            {
                TStringList ls_g = TStringList.Create(nill);

                while !(i>ls->items.Count || ls.[++i] = marcardor_fin)
                     ls_g.Add(ls[i]);                

                ls_g.GrabaraArchivo(nombre_archivo + astring(numeroarchivo) + ext);
                ls_g.Liberar;                      
                numeroarchivo++;
            }
       }
       ls.Liberar;
}

,
mas o menos, escribo de cabeza saludos y espero que te sirva.