Zeichen in einem Memo ersetzen

[Ultimator]

Um generell was dazu zu sagen:
Ich würde mit einer lokalen Variable arbeiten, da der ständige Zugriff TMemo.Text wohl bei mehreren Durchläufen zeitraubend sein dürfte. Bei ä, ö, ü und vielleicht noch ß wird das nicht so ins Gewicht fallen, aber es gibt sicher Anwendungsfälle, wo mehr Buchstaben(-ketten) geändert werden müssen.
Etwa so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var dertext: string;
begin
  dertext := Memo1.Text;
  dertext := StringReplace(dertext,'ä','ä',[rfReplaceAll]);
  dertext := StringReplace(dertext,'ö','ö',[rfReplaceAll]);
  dertext := StringReplace(dertext,'ü','ü',[rfReplaceAll]);
  dertext := StringReplace(dertext,'ß','&szuml;',[rfReplaceAll]);
  dertext := StringReplace(dertext,'udn','und',[rfReplaceAll]);
  Memo1.Text := dertext;
end;