[v1s2222]

Ну наверно в вашем случае надо проверить, есть ли до и после слова пробелы...

Код:

var b: Integer;
...
  b :=  Pos(FIND, Memo1.Lines.Text);
  If(b<>0) and (Memo1.Lines.Text[b-1] <> ' ') and (Memo1.Lines.Text[b+Length(FIND)] <> ' ') then
...

Правда в примере возможен выход за пределы.