Foros Club Delphi - Problemas al insertar datos en archivo

Hola, tengo un problema al insertar datos en el archivo m.txt.
El if lo hace bien, el else no. Se tilda el form y me borra todo lo del m.txt

el m.txt es este
26/06/2014
25

Código:

String Mont = TS9->Strings[1];

int Tot;

Tot = Mo + Mont.ToInt();

for(int i=0; i < TS9->Count; i+=2) {

        if (TS9->Strings[i]==("00/00/0000")) {

                TS9->Delete(i+1);

                TS9->Delete(i);

                TS9->Insert(i, (Now().CurrentDate()));

                TS9->Insert(i+1, Tot);

                TS9->SaveToFile("H:\\m.txt");

        }else {

                TS9->Insert(i+2, (Now().CurrentDate()));

                TS9->Insert(i+3, Tot);

                TS9->SaveToFile("H:\\m.txt");

        }

}

Quizas el problema sea que como esta en un for no va a terminar nunca ya que estoy insertando datos y termina hasta TS->COUNT (y se va incrementando) osea nunca porque va a estar insertando. Creo yo nose.Gracias.