1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function IsVokal(Buchstabe: String): boolean;
const
  vokale: array [1..5] of string = ('a', 'e', 'i', 'o', 'u');
var
  i: integer;
begin
  result := false;
  for i := 1 to high(vokale) do
    if lowercase(Buchstabe[1]) = vokale[i] then
      result := true;
end;

function IsKonsonant(Buchstabe: String): boolean;
const
  konsonanten: array [1..21] of string = ('b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'y', 'z');
var
  i: integer;
  begin
  result := false;
  for i := 1 to high(konsonanten) do
    if lowercase(Buchstabe[1]) = konsonanten[i] then
      result := true;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  str: string;
  i, konsonanten, vokale: integer;
begin
  str := edit1.text;
  for i := 1 to length(str) do
    begin
      if iskonsonant(str[i]) then
        inc(konsonanten);
      if isvokal(str[i]) then
        inc(vokale);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    EditFeld:string;
    Zahlen:integer;
    reinText:string;
    Vokale:integer;
    Konsonanten:integer;

begin
  Zahlen:=0;
  Vokale:=0;
  //Text aus Editfeld laden
  EditFeld:=edit1.Text;
  //Alle sonderzeichen Herrausfiltern
  for i:=1 to length(EditFeld) do
    if (ord(EditFeld[i])<=90) and (ord(EditFeld[i])>=65) //90=Z 65=A
    or (ord(EditFeld[i])<=122) and (ord(EditFeld[i])>=97) //122=z 97=a
    or (ord(EditFeld[i])<=57) and (ord(EditFeld[i])>=48)  then //57=9 48=0
      reinText:=reinText+EditFeld[i];
  //alles zu großbuchstaben machen
  reinText:=uppercase(reinText);
  // Zahlen zählen
  for i:=1 to length(reinText) do
    if (ord(reinText[i])>=48) and (ord(reinText[i])<=57) then
      Zahlen:=Zahlen+1;
  //Vokale Zählen
  for i:=1 to length(reinText) do
    if  (reinText[i] in ['A','E','I','O','U']) then
      Vokale:=Vokale+1;
  //Konsonanten berechnen
  if Zahlen+Vokale < length(reinText) then
    Konsonanten:=length(reinText)-Zahlen-Vokale;
  //Ausgeben
  label3.caption:='Zahlen: '+IntToStr(Zahlen)+' Vokale: '+IntToStr(Vokale)+' Konsonaten: '+IntToStr(Konsonanten);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var
  vstr: string;
  i, konsonanten, vokale, deutscheSZ, zahlen, sonstige: integer;
begin
  vokale := 0;
  konsonanten := 0;
  zahlen := 0;
  sonstige := 0;
  deutscheSZ := 0;
  vstr :=AnsiLowerCase(edit1.text);
  for i := 1 to length(vstr) do begin
    case vstr[i] of
      'a','e','i','o','u' : inc(vokale);
      'b'..'d','f'..'h','j'..'n','p'..'t','v'..'z' : inc(konsonanten);
      'ä','ö','ü','ß' : inc(deutscheSZ);
      '0'..'9' : inc(zahlen);
    else inc(sonstige);
    end;
  end;
end;