Написать процедуру вывода всех слов из файла, начинающихся на букву, введенную пользователем

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList * list = new TStringList();
 list->Clear();
 Memo1->Clear();
 list->LoadFromFile("123.txt");
 list->Delimiter = ' ';
 list->Text = StringReplace(list->Text, "\r\n", " ", TReplaceFlags() << rfReplaceAll);
 list->DelimitedText = list->Text;
 for(int i = 0; i < list->Count; i++)
 {
  if(Edit1->Text.UpperCase() == list->Strings[i].UpperCase()[1])
  {
    Memo1->Lines->Add(list->Strings[i]);
  }
 }
 
 delete list;
 list = NULL;
}
//---------------------------------------------------------------------------

#include <StrUtils.hpp>
#include <memory>
 
// ...
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> list(new TStringList);
    Memo1->Clear();
    list->LoadFromFile("123.txt");
    list->Delimiter = ' ';
    list->DelimitedText =
        StringReplace(list->Text, "\r\n", " ", TReplaceFlags() << rfReplaceAll);
    for(int i = 0; i < list->Count; i++)
    {
        if(AnsiStartsText(Edit1->Text, list->Strings[i])) // Вместо ужаса с UpperCase()
            Memo1->Lines->Add(list->Strings[i]);
    }
}