Insertar una cadena en la posicion del curso en un richedit (RTF) sin perder formato

[darkamerico]

Saludos comunidad Delphi,
Estoy tratando de realizar una rutina para insertar insertar la variable sEtiqueta en el lugar que marque la posición del ratón dentro del componente richedit (llamado doc), el problema es que la Insert le quita el formato, pues utiliza la propiedad text.

procedure TfrmDocMultiples.Label9DblClick(Sender: TObject);
var
  a, sEtiqueta: String;
  Corriente: TStringStream;
begin
  Corriente := TStringStream.Create('');
  a:= doc.Text;
  sEtiqueta:='[NRO_CARTA]';
  try
    // doc.Lines.SaveToStream(Corriente);
    //Insert(sEtiqueta,Corriente.ToString,doc.SelStart+1+doc.CaretPos.Y);
    Insert(sEtiqueta,a,doc.SelStart+1+doc.CaretPos.Y);
    doc.Text := a;
    //doc.Lines.LoadFromStream(Corriente);
  finally
    if Assigned(Corriente) then Corriente.Free;
  end;
end;

[Garada]

Buenas.

Si te refieres a insertar texto en la posición del cursor en el RichEdit, el siguiente código debería bastar:

Código Delphi [-]
doc.SelText := sEtiqueta;