Umlaute in String ersetzen

[Namenloser]

Dann fällt mir eigentlich nur noch sowas ein:

Delphi-Quellcode:

function ErsetzeUmlaute(s: string): string;
var i: integer;
begin
  for i := 1 to length(s) do
  begin
    Case s[i] of
    'ä': result := result+'ae';
    'ü': result := result+'ue';
    'ö': result := result+'oe';
    'ß': result := resultü'ss';
    else: result := resultüs[i];
    end;
  end;
end;

Oder gibt es was eleganteres?