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

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Insertar una cadena en la posicion del curso en un richedit (RTF) sin perder formato (https://www.clubdelphi.com/foros/showthread.php?t=96443)

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

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.

Código:

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;

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;