[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;