Поиск в базе по части строки Memo

{
TStringList AllFileText = GetTextFromFileWithOle( OpenDialog->FileName ); // + Внутри определение исходного форматирования и возврат номера функции для парсинга. Или даже прям там же и парсить
 
while( AllFileText->Count-- )
  {
  String CurrNumber = GetNumber( AllFileText->Strings[i] );
  ADOQuery->SQL->Add( CurrNumber );
  if(ADOQuery1->IsEmpty())
    Memo->Lines->Add( "Document " + CurrNumber + " not found" );
  else
    Memo->Lines->Add( Document + ADOQuery1->FieldByName("Data")->Value + "loaded");
  }
}

{ // Где-то в теле какой-то функции
TStringList AllFileText // Создаем список, чтобы туда считать данные из файла
= GetTextFromFileWithOle( // Вызываем заранее нами же написанную функцию, которая получит имя файла, найдет его, откроет его как Ole-объект (непосредственно через Excel), определит какой тип форматирования в нем, прочтет из него данные соответствующим образом, и вернет наконец список прочтенных отформатированных как нам нужно данных.
OpenDialog->FileName ); // Имя файла выбрать посредством стандартного диалогового окна
 
while( AllFileText->Count-- ) // Цикл по всем строкам списка со всем текстом
  {
  String CurrNumber // Создаем переменную, где будем хранить найденный номер
   = GetNumber( // Получаем с помощью нашей самописной функции-парсера номер из текущей строки
  AllFileText->Strings[i] ); // Собственно текущая строка списка
  ADOQuery->SQL->Add( CurrNumber ); // Формируем запрос к базе данных, включая в него полученный номер. Исполняем запрос, все дела.
  if(ADOQuery1->IsEmpty()) // Если ничего не найдено
    Memo->Lines->Add( "Document " + CurrNumber + " not found" ); // тогда пишем, что не найдено
  else // Если найдено
    Memo->Lines->Add( Document + ADOQuery1->FieldByName("Data")->Value + "loaded"); // Пишем, что найдено
  }
}

TStringList GetTextFromFileWithOle( String FullPathAndNameXlsFile_ )
{
TStringList *sl = new TStringList(); // Лучше конечно по ссылке как параметр
 
if( FileExists( FullPathAndNameXlsFile_ ) )
  {
  Variant Excel;
  try
    {
    Excel = CreateOleObject( "Excel.Application" );
    Excel.OlePropertySet( WideString( "Visible" ), false );
    Variant Book = Excel.OlePropertyGet( WideString( "Workbooks" ) ).OlePropertyGet
        ( WideString( "Open" ), WideString( FullPathAndNameXlsFile_ ) );
    Variant Sheet = Book.OlePropertyGet( "Worksheets", 1 );
 
    // активация последней заполненной ячейки
    Excel.OlePropertyGet("Cells").OlePropertyGet( "SpecialCells",
        XlCellType::xlCellTypeLastCell).OleProcedure("Activate");
    // Получаем значение последней строки
    unsigned rows = Excel.OlePropertyGet("ActiveCell").OlePropertyGet("Row");
    // Получаем значение последней колонки
    unsigned cols = Excel.OlePropertyGet("ActiveCell").OlePropertyGet("Column");
 
    for ( unsigned i = 0; i < raws; ++i )
        {
        String tempRaw = ""; 
        for ( unsigned j = 0; j < cals; ++j )
            {
            tempRaw = tempRaw + Sheet.OlePropertyGet( WideString("Cells"), i, j ); // Для сельской местности
            }
        sl->Add( tempRaw );
        }
    }
  __finally
    {
    try
      {
      Excel.OleProcedure( WideString("Quit") );
      }
    catch(...)
      {
      ::MessageBox( NULL, L"Some error from Ole", L"Error", MB_OK );
      return false;
      }
    }
  }
else
    {
    ::MessageBox( NULL, L"File "".xls"" not found", L"Warning", MB_OK );
    return false;
    }
 
return sl;
}

WideString(OpenDialog1->FileName)

GetTextFromFileWithOle( OpenDialog->FileName );