[StudentMarat]

Ну если вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
Find:string; // Искомая строка
b: integer;
begin
find:=Edit1.Text; // Записываем в find текст из Edit
b :=  Pos(FIND, Memo1.Lines.Text);
    If(b<>0) and (Memo1.Lines.Text[b-1] <> ' ') and (Memo1.Lines.Text[b+Length(FIND)] <> ' ')
      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 ввести слово "спарта" то да программа добавляет его в конец текста в редакторе как и положено по заданию. Ну а если в edit ввести слово "спартак" то программа даже и не выдает сообщение, что это слово есть в Memo добавляет его в конец редактора. Помогите это исправить