Оптимизировать часть кода: упростить и сделать меньше строк

String slovo[100]; //обьявляем массив
String E = Memo1->Text; //текст из мемо в переменную
Memo1->Text = E.LowerCase(); //приводит все к нижнему регистру в мемо1
E = E.LowerCase(); //в нижний регистр делаем в переменной
int pos = E.Pos("прив"); //найти точку вхождения в слово
slovo[0] = E.SubString(pos,4); //занести в переменную прив
if(slovo[0] == "прив")Edit1->Text = "Ну здорова коли не шутиш";
 
int pos2 = E.Pos("пока");
slovo[1] = E.SubString(pos2,4);
if(slovo[1] == "пока")Edit1->Text = "Ну давай заходи еще как нить";

String slovo;
Memo1->Text = Memo1->Text.LowerCase(); //приводит все к нижнему регистру в мемо1
int pos = Memo1->Text.Pos("прив"); //найти точку вхождения в слово
slovo = Memo1->Text.SubString(pos,4); //занести в переменную прив
if(slovo == "прив")Edit1->Text = "Ну здорова коли не шутиш";
pos = Memo1->Text.Pos("пока");
slovo = Memo1->Text.SubString(pos,4);
if(slovo == "пока") Edit1->Text = "Ну давай заходи еще как нить";

pos = Memo1->Text.Pos("бот");
slovo = Memo1->Text.SubString(pos,3);
if(slovo == "бот") Edit1->Text = "Сам ты бот на себя сначала посмотри";

pos = Memo1->Text.Pos("бот");
slovo = Memo1->Text.SubString(pos,3);
if(slovo == "бот") Edit1->Text = Мемо2->Линия->Стринг[7]; //грузим в эдит 7 строку

[CPP]pos = Memo1->Text.Pos("бот");
if(pos>0) //значит слово найдено иначе нам вернули бы ноль
Edit1->Text = Мемо2->Линия->Стринг[7]; //грузим в эдит 7 строку

    std::auto_ptr <TStringList> lst( new TStringList( ) );
    lst->Add( "прив=Ну здорова коли не шутиш" );
    lst->Add( "пока=Ну давай заходи еще как нить" );
 
    for ( size_t i = 0; i < lst->Count; ++i ) {
        if ( memo->Text.Pos( lst->Names[i] ) ) {
            ShowMessage( lst->Values[lst->Names[i]] );
            break;
        }
    }