Umlaute ersetzen?

[smart]

Hallo!
Ich wollte Umlaute austauschen und habe mir ein kleines Programm erstellt. Es klappt aber nicht. Warum nicht? Ich komme nicht darauf. Kann mir Einer mal helfen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
begin
S := StringReplace(Edit10.Text,'ü','ue',[rfReplaceAll]);
S := StringReplace(Edit10.Text,'ö','oe',[rfReplaceAll]);
S := StringReplace(Edit10.Text,'ä','ae',[rfReplaceAll]);
Edit10.Text := S;
end;