insertar texto ambos lados de selección de un memo

[rgstuamigo]

Que tal así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i,f,l:Integer;
begin
  if Memo1.SelText<>'' then //si tengo algo seleccionado
  begin
    i:=Memo1.SelStart;//guardo el indice del principio de la seleccion
    f:=Memo1.SelLength;//guardo el indice del final de la seleccion
    l:=Length(Edit1.Text);//saco la longitud de la palabra que voy a poner al princio y al final
    Memo1.SelText:=Edit1.Text+Memo1.SelText+Edit1.Text;//inserto la palabra al princio y al final de la seleccion
    Memo1.SelStart:=i+l;//coloco el indice del principio de la seleccion nuevamente pero aumentado
    Memo1.SelLength:=f;//coloco el indice final de la seleccion que es el mismo
    Memo1.SetFocus;// hago que el memo tenga el focus para ver la seleccion actual
  end;
end;

Saludos...