[angvelem]

Вот я за тебя твой же код "причесал". Может так виднее проблема будет:

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  i, p : Integer;
  find : String;
begin
  find := edit1.text;
  for i := 1 to RichEdit1.Lines.Count + 1 do
    if pos(find, RichEdit1.Lines.text) <> 0 then
    begin
      RichEdit1.setfocus;
      richedit1.SelStart  := pos(find, richedit1.Lines.Text) - 1;
      RichEdit1.sellength := Length(find);
    end;

  begin
    while pos(find, edit1.Text) <> 0 do
      richedit1.SelStart := pos(find, richedit1.Lines.Text) - 1;

    RichEdit1.sellength := delete(find, 50, 50);
    delete(find, pos(find, edit1.Text), Length(edit1.Text));
  end;
end;