Си. Строки и подстроки.

// находим подстроку, начиная с определённой позиции
int seach_substr(AnsiString str, AnsiString substr, int pos)
{
 int pos_substr = 0;
 for(int i = pos; i <= str.Length()-substr.Length(); i++)
   {
    for(int j = 0; j < substr.Length(); j++)
      {
       if(str[j+i] != substr[j+1])
         {
          pos_substr = 0;
          break;
         }
       else
         {
          pos_substr = i;
         }
      }
    if(pos_substr)
      break;
   }
 return pos_substr;
}
//------------------------------------------------
// поиск подстрок
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString str = Edit1->Text;
 AnsiString substr = Edit2->Text;
 int kolvo = 0;
 int pos = 0;
 for(int i = 1; i < str.Length(); i++)
  {
   pos = seach_substr(str, substr, i);
   if(pos)
     {
      kolvo += 1;
      i += pos;
     }
  }
 int * vhod = new int[kolvo]; //массив содержащий все позиции входа подстроки
 kolvo = 0, pos = 0;
 for(int i = 1; i < str.Length(); i++)
  {
   pos = seach_substr(str, substr, i);
   if(pos)
     {
      vhod[kolvo] = pos;
      kolvo += 1;
      i += pos;
     }
  }
 AnsiString substr_pos = "";
 for(int i = 0; i < kolvo; i++)
   substr_pos += IntToStr(vhod)+"    ";
 Edit3->Text = substr_pos;
// после завершения работы не забываем освобождать память
 delete [] vhod;
}