Edit vokale zählen

[ScrollbarKopf]

Könnt ihr mir bitte helfen weiß nicht mehr weier das programm soll aus den text der ins edit geshcrieben wurde alle vokale suchen das habe ich bisher

Delphi-Quellcode:

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
za:integer;
begin
case s[i] of
'a':za:=za +1;
'e':za:=za +1;
'i':za:=za +1;
'o':za:=za +1;
'u':za:=za +1;
edit2.text:= inttostr (za);