int n = MEMO1->Text.Pos("Вася");

if(n > 0) //есть
else //нет

Если нужно именно отдельное слово, то нужно проанализировать символы
непосредственно перед подстрокой и после, т.е. :
if((n==0)||(MEMO1->Text[n-1] == ' '))
{
int m = n +4;
if((m == MEMO1->Text.Length())||(MEMO1->Text[m] == ' ')) //отдельное слово
}

Конечно проверка MEMO1->Text[n-1] == ' ' это просто пример, нужна функция типа bool CheckChar(char c), возвращающая true если с - символ-разделитель (пробел, табуляция, перевод строки и т.д.), т.е.

if((n==0)||CheckChar(MEMO1->Text[n-1]))
{
int m = n +4;
if((m == MEMO1->Text.Length())||
CheckChar(MEMO1->Text[m])) //отдельное слово
}