[StudentMarat]

Вот пока до чего додумался

Код:

procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
Find:string; // Искомая строка
begin
find:=Edit1.Text; // Записываем в find текст из Edit
    If Pos(FIND, Memo1.Lines.Text)<>0
      Then
        Begin
          ShowMessage('Такое слово есть');
          Memo1.SetFocus();
          Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
          Memo1.SelLength:=Length(FIND);
        End
    else
    Begin
      Memo1.Lines.Add(edit1.Text);
    end;
end;

Вроде как бы работает, но если например в Memo ввести вот такой текст "Я болею за спартак" а в edit ввести слово "спарта" то программа выдаст сообщение что такое слово есть. Как это исправить помогите!!!!!