Umlaute in String ersetzen

[Namenloser]

Delphi-Quellcode:

function ErsetzeUmlaute(s: string): string;
var i,j: integer;
const
      AnzUmlaute =7;
      Umlaute: Array[0..AnzUmlaue-1] of char = ('ä','ö','ü','ß','Ä','Ö','Ü');
      Ersetzt: Array[0..AnzUmlaue-1] of string = ('ae','oe','ue','ss','Ae','Ue','Oe');
begin
  for i := 1 to length(s) do
  begin
    for j := 0 to anzumlaute-1 do
    begin
      if s[i] = Umlaute[j] then
      begin
        result := result+umlaute[j];
        break;
      end
      else
        result := result+s[i];
    end;
  end;
end;

Ich habs mal etwas erweitert. Ich denke aber, dass es nicht besonders schnell ist wegen "result:=result+...".