Memo Text ersetzen (ohne verschieben)

[Mirilin]

weiss nicht ob dieses geht (oder deinen Wünschen entspricht) :

Delphi-Quellcode:

procedure TMainForm.ButtonReplaceClick(Sender: TObject);
var
  s : String;
  p : Integer;
  t : String;
const
  r = '</name/>';
begin
  s := EditReplaceText.Text;
  t := Memo.Lines.Text;
  p := Pos(r,t);
  if p > 0 then
  begin
    Delete(t,p,length(s)+1);
    Insert(s,t,p);
    Memo.Lines.Text := t;
  end;
end;