Umlaute ersetzen?

[spox]

Hallo!
Ich schreibe gerade an einer Prozedur, die ae, ue, oe in ä,ü,ö umwandelt. Doch leider stoße ich da grad an ein Problem. Das Problem ist, dass der zwar ae durch ein ä ersetzt, aber blöderweiße dann noch das e von ae im String bleibt und noch mit hin geschrieben wird. Letztendlich steht dann dort äe. Das habe ich versucht durch diese Prozedur zu lösen:

Delphi-Quellcode:

   'e':
    begin
      if eingabe[z-1]<>'u' then txt:= txt+'e';
      if eingabe[z-1]<>'o' then txt:= txt+'e';
      if eingabe[z-1]<>'A' then txt:= txt+'e';
      if eingabe[z-1]<>'U' then txt:= txt+'e';
      if eingabe[z-1]<>'O' then txt:= txt+'e';     
     end;

Wie zu erkennen, habe ich versucht das ganze mit einer Case - Auswahl zu lösen. Das klappt bei auch sonst ganz gut, nur bei dem e happerts. Man müsste doch die Zählvariable ( in meinen Fall z ) erhöhen können. Geht das?

Die restliche Prozedur ist nach dem Schema aufgebaut:

Delphi-Quellcode:

 eingabe:= Edit2.Text;
 txt:= '';
 for z:=1 to length(eingabe) do
 begin
  case eingabe[z] of
   'a':
    begin
     if eingabe[z+1]='e' then txt:= txt+'ä';
    end;

Freue mich schon auf eure Hilfe, weil ich da echt schon jetzt lange dran knabber