Umlaute ersetzen?

[Die Muhkuh]

Delphi-Quellcode:

eingabe:= Edit2.Text;
eingabe := StringReplace(eingabe ,'ae','ä',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'ue','ü',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'oe','ö',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'Ae','Ä',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'Ue','Ü',[rfReplaceAll]);
eingabe := StringReplace(eingabe ,'Oe','Ö',[rfReplaceAll]);
Edit1.Text:= eingabe;