[wany.iv]

В поле memo присутствует текст скажем такие имена Коля Вася Саша и.д надо проверить есть ли в списке например имя Вася, если есть, присваивается значение 1, если нет - 0

[Alegun]

Если в мемо именно список, вида

Коля
Вася
Саша

,тогда подойдёт и 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));

[lmikle]

одна поправочка. если надо искать без учета регистра, то код можно написать так:

Код:

function isVasya(Substr, S: string; CaseSens : Boolean = True): integer;
begin
  Result := False;
  If CaseSens
    Then begin if pos(Substr, S) > 0 then Result:= 1; end
    Else begin if pos(AnsiUpperCase(Substr),AnsiUpperCase(S)) > 0 then Result := 1; end;
end;

Вызов тот же.