Zeichen in Memo ersetzten und Formatierung beibehalten?!

[KodeZwerg]

Arbeitet schnarchlangsam aber erfüllt Sinn und Zweck.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//  Memo2.Text := Memo1.Text;
//  Memo2.Text := StringReplace(Memo2.Text,'ErsetzeDas','MitDemHier',[rfReplaceAll]);
  Memo2.Text := StringReplace(Memo1.Text,'ErsetzeDas','MitDemHier',[rfReplaceAll]);
end;