insertar texto ambos lados de selección de un memo

[gulder]

hola foro como andan espero que bien, bueno estoy haciendo algo pero no meda y la cabeza se me esta estallando es lo siguiente, tengo un memo un texto entonces selecciono una parte de ese texto y al presionar un botón debe agregar una palabra al principio y al final de la selección, después de haber agregado estas dos palabras al principio y al final de la selección el texto seleccionado debe seguir seleccionado y el cursor aparecer al final de la selección eso es todo.

Nota: con este codigo inserto la palabra al principio y al final de la seleccion pero no logro seleccionarla otravez y menos ubicar el cursor al final del texto seleccionado espero que me entiendadn

Código Delphi [-]
   var
   log:AnsiString;

   log:=Memo.Lines.Text;
   Insert(tex1, log, Memo.SelStart+1);
   Insert(tex2, log, (Memo.SelStart+Memo.SelLength+Length(tex1)+1));

saludos pues