СТРОКИ

[amigo_28]

Вот часть программы, которая ищет и выделяет слово.
Проблема в том, что она выделяет первое встретившееся слово.
Как её переделать так, чтобы выделяло все слова, найденные в Memo1?

procedure TForm1.btn1Click(Sender: TObject);
var
  Find:string; // Искомая строка
  i:integer;   // Счетчик для цикла
begin
  for i:=0 to memo1.Lines.Count-1 do
  KMP(Memo1.Lines[i],Edit1.Text);
  find:=Edit1.Text; // Записываем в find текст из Edit
  For i:=0 to Memo1.Lines.Count-1 do     // Запускаем цикл поиска строки
  If Pos(FIND, Memo1.Lines.Text)<>0 then
    Begin
      Memo1.SetFocus;                                //
      Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;  //  Выделение найденного слова
      Memo1.SelLength:=Length(FIND);                 // 
    end;
end;

[Stilet]

procedure TForm1.btn1Click(Sender: TObject);
var
  Find:string; // Искомая строка
  i:integer;   // Счетчик для цикла
begin
  for i:=0 to memo1.Lines.Count-1 do   KMP(Memo1.Lines[i],Edit1.Text);
  find:=Edit1.Text; // Записываем в find текст из Edit
  For i:=1 to length(Memo1.Lines.Text) do     // Запускаем цикл поиска строки
  If copy(Memo1.Lines.Text,i,length(find))=FIND then
    Begin
      Memo1.SetFocus;                                //
      Memo1.SelStart:=i;  //  Выделение найденного слова
      Memo1.SelLength:=Length(FIND);                 // 
    end;
end;

Сойдет?