Zeichen in Memo ersetzten und Formatierung beibehalten?!

[Delphi.Narium]

Der Zugrif auf Memo1.Lines.Text ist sehr langsam, vor allem, wenn im Memo viel Text drinne steht.

Etwas schneller wird es mit

Delphi-Quellcode:

Memo2.Lines.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
begin
  Memo2.Lines.Add(StringReplace(Memo1.Lines[i],'ErsetzeDas','MitDemHier',[rfReplaceAll]));
end;