Hola te doy esta idea que se me ocurre de momento
Código Delphi
[-]
var
a : String;
begin
a := RichEdit1.Text;
Insert('lolo',a,RichEdit1.SelStart+1);
RichEdit1.Text := a;
end;
Está un poco rudimentaria pero funciona
, si se me ocurre otra forma te escribo.
Saludos