[lmikle]

Код:

RichEdit1.Lines.Text := 
  Copy(RichEdit1.Lines.Text,1,RichEdit1.SelStart) +
  Edit1.Text +
  Copy(RichEdit1.Lines.Text,RichEdit1.SelStart+RichEdit1.SelLength,Length(RichEdit1.Lines.Text));

Немного неаккуратно (второй кусок), но принцип понятен.