Считывание текста из файла и вывод на экран только цитат - предложений, заключенных в кавычки.

AnsiString str = "Программа, которая считывает текст из файла и \"выводит на экран только цитаты\", то есть предложения, заключенные в кавычки. ";
AnsiString s;
TSysCharSet Tws,Tcs;  
Tcs<<'\"'; // разделители
ExtractStrings(Tcs,Tws,str.c_str(),s);
ShowMessage(s);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String s = "фывоываыолатыва ыаываро\"ВАСЯ\"ыфвоыф фывро";
  TStringList *sl = new TStringList();
  sl->StrictDelimiter = true;
  sl->Delimiter = '"';
  sl->DelimitedText = s;
  for (int i=0; i < sl->Count; i++) {
    ShowMessage(sl->Strings[i]);
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int count;
  AnsiString str = "фывоываыолатыва ыаываро\"ВАСЯ\"ыфвоыф фывро";
  AnsiString mass[15][256];
  int k=0;
  wchar_t * UnicodeString = new wchar_t[str.WideCharBufSize()];
  str.WideChar(UnicodeString,str.WideCharBufSize());
  for (int i = 0; i < str.Length(); i++) {
    if(UnicodeString[i] == ' '){
      k++;
    }
  }
  for (int i = 0; i <= k; i++) {
    if (i==k) {
      mass[i][256] = str;
      Memo1->Lines->Add(mass[i][256]);
    }
    else{
      count = str.Pos("\"");
      mass[i][256] = str.SubString(1,count-1);
      Memo2->Lines->Add(mass[i][256]);
      str = str.Delete(1,count);
    }
  }
}

StringList->Strings[i]

AnsiString str

AnsiString str = "Программа, которая считывает текст из файла и \"выводит на экран только цитаты\", то есть предложения, заключенные в кавычки. ";
AnsiString s;
TSysCharSet Tws,Tcs;  
Tcs<<'\"'; // разделители
ExtractStrings(Tcs,Tws,str.c_str(),s);
ShowMessage(s);