Allgemeines Replace mit zwei Masken

[glkgereon]

habs nun so:

Delphi-Quellcode:

var R: TRegExpr;
begin
  R:=TRegExpr.Create;
  R.Expression:='^(.*?) ist (.*?)$';
  R.InputString:=Edit1.Text;
  R.Compile;
  Edit2.Text := 'Der User findet ' + r.Match[1] + ' ' + r.Match[2] + '!';
  R.Free;
end;

Aber es kommt bei 'DP ist toll' immer 'Der User findet !'

Edit:
ausserdem möchte ich das einsetzen ja auch wieder dynamisch machen, das heisst mithilfe der zweiten Maske