Удалить из StringList строки зная их индекс

TStringList *s = new TStringList;
s->LoadFromFile("c:\\temp\\123.txt");
ShowMessage(s->Strings[3]);
s->Delete(3);
ShowMessage(s->Strings[3]);
delete s;

  for(int q = 0; q < Raznes->Count; q++)
    {
    Reestr->Delete(StrToInt(Raznes->Strings[q]));
    }

  list = Reestr->Text;
  newtext = "";
  for(int q = 0; q < Raznes->Count; q++)
    {
    oldtext = Raznes->Strings[q];
    list = StringReplace(list,oldtext,newtext,TReplaceFlags()<<rfReplaceAll);
    }

TStringList *List = new TStringList;      //Полный список
TStringList *Raznes = new TStringList; //Номера строк для удаления

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  List->LoadFromFile("c:\\1\\1.txt");
  Raznes->LoadFromFile("c:\\1\\2.txt");
  Memo1->Text = List->Text;
  Memo2->Text = Raznes->Text;
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TStringList *Temp = new TStringList;
  for(int i = 0; i < List->Count; i++)
    if(Raznes->IndexOf(IntToStr(i)) == -1)
      Temp->Add(List->Strings[i]);
  List->Text = Temp->Text;
  delete Temp;
  Memo3->Text = List->Text;
}