给你写一段演示代码，当然，不完善，比如：要查找的文本分行隔断的情况未处理，需要你自己完善。

如果需要其它功能的详细的Demo，建议看Delphi\Demos\RichEdit下的Demo

implementation
uses ClipBrd;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);//“查找”及“查找下一个”功能
var
  F: integer;
begin
  with RichEdit1 do begin
    F := Pos(Edit1.Text, Copy(Text, SelStart+1+Tag, MaxInt));
    if F > 0 then begin
      SelStart := SelStart + F + Tag - 1;
      Tag := Length(Edit1.Text);
      end else begin
      Tag := 0;
      Showmessage('搜索完毕');
    end;
    SelLength := Tag;
    SetFocus;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);//测试数据
begin
  RichEdit1.Text := '中华人民共和国山东中国山东中国山东中国';
  Edit1.Text := '山东';
end;

procedure TForm1.Button2Click(Sender: TObject);//插入功能
begin
  ClipBoard.AsText := Edit1.Text;
  RichEdit1.PasteFromClipboard;
end;