Не все строки обрабатывает цикл for

TStrings * list (Form21->Memo1->Lines);
StringGrid1->RowCount=list->Count+1;
for(int i = 0; i < list->Count; i++)
   {
   if (list->Strings[i].Pos("êâ: "))
     {
     String temWord = list->Strings[i]; // ïåðåäàåì â ïåðåìåííóþ ñòðîêó ñ àäðåñîì
     String inWord = " ", outWord = "_"; // ïåðåìåííûå ñ ïðîáåëîì è ñ _
       while( int index = temWord.Pos( inWord ) )
         {
         StringGrid1->RowCount=list->Count+1;
         temWord=temWord.Delete(index,inWord.Length());
         temWord=temWord.Insert(outWord,index);
         StringGrid1->Rows[iRows]->DelimitedText = "1 "+ temWord +" "+ list->Strings[i+1];
         }
      }
    }

TStringList *list = new TStringList;
list->Text = Memo1->Text;
...
delete list;

TStringList *list = new TStringList;
list->Text = Form21->Memo1->Text;
StringGrid1->RowCount=list->Count+1;
for(int i = 0; i < list->Count; i++)
   {
   if (list->Strings[i].Pos("êâ: "))
     {
      iwest->Text = list->Strings[i];
      iwest->Text = StringReplace(iwest->Text, " ", "_",TReplaceFlags() << rfReplaceAll);
      StringGrid1->Rows[iRows]->DelimitedText = "1 " + iwest->Text +" "+ list->Strings[i+1];
      iRows++;
      }
    }

StringGrid1->RowCount=list->Count+1;

StringGrid1->RowCount+=1;