Problemas al insertar datos en archivo

[eennzzoo]

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

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.

[eennzzoo]

Al final era el tema del TS->COUNT. Ya esta gracias igual.