Error al cargar en un StringGrid

[ecfisa]

Hola eennzzoo.

Proba de este modo:

void __fastcall TfPeliculas::btnAgregarClick(TObject *Sender)
{
  FILE *FSave;

  if ((FSave = fopen("peliculas.txt", "a")) == NULL) {
    ShowMessage("El archivo no se pudo guardar");
    return;
  }
  fprintf(FSave,"%s\n", editPelicula->Text.c_str());
  fclose(FSave);

  TS2->LoadFromFile("peliculas.txt");
  int j=TS2->Count;
  for(int i= 0; i<TS2->Count; i++) {
    StringGrid1->Cells[0][j]=TS2->Strings[i];
    j--;
  }
  // delete TS2;  ¡¡¡ Erroneo !!! (excepcion en OnDestroy)
}

Saludos