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