Поиск даты в txt файле

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm21 *Form21;
TStringList *zay=new TStringList;
........
........
void __fastcall TForm21::FormShow(TObject *Sender)
{
zay->Add(DateToStr(Date()));
}

for(int i = 0; i < zay->Count; i++) {
  if (zay->Strings[i].Pos(DateToStr(Date()))) {
  ShowMessage("Нашлась!");
  break; }
}

bool date_found( false );
for( int i = 0; i < zay->Count; i++ ) {
    if ( zay->Strings[i].Pos( DateToStr( Date( ) ) ) ) {
        date_found = true;
        break; 
    }
}
if( date_found )
{
    ShowMessage( "Нашлась!" );
}
else
{
    ShowMessage( "Не нашлась!" );
}

if( zay->IndexOf( DateToStr( Date( ) ) ) != -1 )
{
    ShowMessage( "Нашлась!" );
}
else
{
    ShowMessage( "Не нашлась!" );
}

    TStrings * lines_in( mem_input->Lines ), * lines_out( mem_output->Lines );
    int i( lines_in->IndexOf( "Дата: " + edit_date->Text ) );
 
    if ( i != -1 )
    {
        lines_out->Add( lines_in->Strings[ i++ ] );
        for ( int i_limit( lines_in->Count ); i < i_limit; ++i )
        {
            if ( lines_in->Strings[ i ].Pos( "Дата" ) )
            {
                break;
            }
            lines_out->Add( lines_in->Strings[ i ] );
        }
    }

...
   TStringList *lGeneral = new TStringList(); // Сюда загружается ваш файл с данными
   TStringList *lTokenData = new TStringList(); // Сюда разбивается строка, образуя временный список из 4 строк
 
   TSysCharSet chLaticce;
   chLaticce << '#'; // Разделитель строк, по которому будем бить - #
 
   for(int i = 0; i < lGeneral->Count; i++){
      lTokenData->Clear();
      ExtractStrings(chLaticce, chLaticce, lGeneral.c_str(), lTokenData); //Функция разбивки строки. Теперь список lTokenData содержит 4 строки: Дата, Адрес, Телефон, Тип заявки
      Memo1->Lines->Add(lTokenData->Strings[0]); // Вывод даты
      Memo1->Lines->Add(lTokenData->Strings[1]); // Вывод адреса
      Memo1->Lines->Add(lTokenData->Strings[2]); // Вывод телефона
      Memo1->Lines->Add(lTokenData->Strings[3]); // Вывод типа заявки
      Memo1->Lines->Add(""); // Пустая строка, для визуальности
     }
...

...
   UnicodeString strDataFile = ""; // Результирующая строка
   UnicodeString strDate = "Дата: 02.11.2014";
   UnicodeString strAddress = "#" + "Московская 33 п.1 кв: 10";
   UnicodeString strTelefon = "#" + "Телефон: 554466";
   UnicodeString strType = "#" + "Тип заявки: Замена";
 
   strDataFile = strDate + strAddress + strTelefon + strType; // Формируем одну строку
 
   // Оперируем дальше с strDataFile
...

// #include <memory>
// #include <StrUtils.hpp>
 
    std::auto_ptr<TStringList> L(new TStringList);
    L->LoadFromFile("D:\\test\\thread1290222.txt");
    TStringDynArray arr(SplitString(StringReplace(L->Text, L"Адрес:",
        L"#Адрес:", TReplaceFlags() << rfReplaceAll), "#"));
    for (int i = 0; i < arr.Length; i++)
    {
        if (arr[i].Pos(Edit1->Text) > 0)
        {
            Memo1->Lines->Add(arr[i]);
        }
    }

for(int i = 0; i < list->Count; i++)
  {
  if (list->Strings[i].Pos(Edit1->Text))
   Memo1->Lines->Append(list->Strings[i]);
  }

    TStrings * lines_in( memo_input->Lines ), * lines_out( memo_output->Lines );
 
    for ( int i( 0 ), date_idx, i_limit( lines_in->Count ); i < i_limit; ++i )
    {
        if ( lines_in->Strings[ i ].Pos( "Адрес: " + edit_target->Text ) == 1 )
        {
            date_idx = i;
            do
            {
                --date_idx;
            }
            while ( lines_in->Strings[ date_idx ].Pos( "Дата:" ) != 1 );
 
            lines_out->Add( lines_in->Strings[ date_idx ] );
            lines_out->Add( lines_in->Strings[ i++ ] );
 
            while ( lines_in->Strings[ i ].Pos( "Дата:" ) != 1 &&
                lines_in->Strings[ i ].Pos( "Адрес:" ) != 1 &&
                i < i_limit )
            {
                lines_out->Add( lines_in->Strings[ i++ ] );
            }
        }
    }