Если в мемо именно список, вида
,тогда подойдёт и if Memo.Lines.IndexOf('Вася') > -1 then..
а если искомое слово во всём тексте нужно найти, тогда
Код:
function isVasya(Substr, S: string): integer;
begin
if pos(Substr, S) > 0 then Result:= 1 else Result:= 0;
end;
...
Label.Caption:= IntToStr(isVasya('Вася', Memo.Text));