Frage zu einfache Mengentypen

[iLLe]

Ich hab mal aus spass ein einfaches prorgamm gemacht das alle Vokale erkennt und dann die anzahl ausgibt leider funktioniert es nicht richtig

Code:

procedure TForm1.Button1Click(Sender: TObject);
type Tvokabel=set of char;
var vokabel:Tvokabel;
    i,c,anzahl:integer;
    a:string;
begin
  a:=edit1.Text;
  vokabel:=['a','i','o','u','e'];
  setlength(a,c);
  anzahl:=0;
  for i:=0 to high(c) do
  begin
 if edit1.text[i+1] in vokabel then inc(anzahl)//Hier liegt der fehler 
  end;
  label1.caption:=inttostr(anzahl);
end;

Also es lässt sich starten jedoch wen ich den knopf drücke kommt eine fehlermeldung.