Поиск и удаление в Memo

procedure TForm1.Button1Click(Sender: TObject);
var 
Find:string; // Искомая строка 
i:integer; // Счетчик для цикла 
begin
 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;

Memo1.ClearSelection; // удалить выделенный текст

procedure TForm1.Button1Click(Sender: TObject);
var
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
 Find:=Edit1.Text; // Записываем в find текст из Edit
For i:=Memo1.Lines.Count-1 downto 0 do // Идём с конца мемо к началу, чтоб не пропустить строки
  If Memo1.Lines[i]=Find Then //если строка полностью совпадает, то...
    Memo1.Lines.Delete(i);//удаляем найденную строку
  end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
 Find:=Edit1.Text; // Записываем в find текст из Edit
For i:=Memo1.Lines.Count-1 downto 0 do // Запускаем цикл поиска строки
  If pos(Find, Memo1.Lines[i])>0 Then//если искомое слово присутствует в строке, то...
    Memo1.Lines.Delete(i);//удаляем найденную строку
  end;