Insertar en el RichEdit!!!

[acertij022]

Hola delphiano necesito de su sabiduria una vez mas . Les cuento mi situación resulta que necesito insertar una palabra en la posicion donde se encuentra el cursor en el RichEdit; lo unico que he logrado hasta ahora es insertar al final del texto con el siguiente código:

Código Delphi [-]
if suiListbox1.ItemIndex = -1 then exit;
RichEdit1.Lines.Append('['+suiListbox1.Items.Strings[suiListbox1.ItemIndex]+']');

Alguien seria tan amable de decirme como se podría realizar este proceso

[yusnerqui]

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

[acertij022]

Gracias yusnerqui me funciono.
Mil Gracias