procedure TForm1.Button1Click(Sender: TObject);
var i,f,l:Integer;
begin
if Memo1.SelText<>'' then begin
i:=Memo1.SelStart; f:=Memo1.SelLength; l:=Length(Edit1.Text); Memo1.SelText:=Edit1.Text+Memo1.SelText+Edit1.Text; Memo1.SelStart:=i+l; Memo1.SelLength:=f; Memo1.SetFocus; end;
end;