Поиск подстроки между определенными символами

  int zpt, tchk ; String slovo="";
    if ((zpt=Edit1->Text.Pos(","))!=0)
      for (tchk=zpt;tchk>0;tchk--)
        if (Edit1->Text[tchk]=='.' &&
            UCHAR(Edit1->Text[tchk+1] & 0xE0) == 192) // RU  UPPER
         { slovo = Edit1->Text.SubString( tchk+1,zpt-tchk-1 ); break; }
   Label1->Caption = slovo;

#include <StrUtils.hpp>
 
void __fastcall TForm1::Button22Click(TObject *Sender)
{
    // String s = L"Мы .с Мам.Ой пош.ли в. Па.р.к Им. Горького, а Пото.м ка.тал.ись там на. кАрусе.лях.";
    String s = L"Мы с мамой пошли в парк им. Горького, а потом катались там на каруселях.";
    String ss = StringReplace(StringReplace(s, ".", "<P>.<P>", TReplaceFlags() << rfReplaceAll),
                              ",", "<C>,<C>", TReplaceFlags() << rfReplaceAll);
    TStringDynArray arr(SplitString(ss, ".,")); // разбиваем строку по заданным разделителям
    for (int i = 0; i < arr.Length; i++)
    {
        WideString t = arr[i]; // и проверяем строку за строкой на совпадение условий...
        if(LeftStr(t, 3) == "<P>" && RightStr(t, 3) == "<C>" // начинается точкой, заканчивается запятой?
           && t.SubString(t.Pos(" ") + 1, 1) == AnsiUpperCase(t.SubString(t.Pos(" ") + 1, 1))) // заглавная буква?
        Memo1->Lines->Add(MidStr(t, 5, t.Length() - 7)); // выводим
    }
}