Vokal ersetzen

[Axl]

Mit einer Schleife habe ich es auch schon versucht doch die funktioniert nicht richtig.
Ich wollte es mit IF A,E,I,O,U und in klein geschrieben halt machen.
Wie kann ich jetzt das Editfeld einbauen?

Mein Quelltext:
v soll der eingegebene Vokal sein.

FOR z:=1 TO LENGTH(txt[z]) DO
IF (txt[z]= 'a')or (txt[z]= 'e')or (txt[z]= 'i') or (txt[z]= 'o') or (txt[z]= 'u')
or (txt[z]= 'A') or (txt[z]= 'E') or (txt[z]= 'I') or (txt[z]= 'O') or (txt[z]= 'U')
THEN txt[z]:=v;