var
  vokale : set of 'a','A','e','E','i','I','o','O','u','U';
  satzzeichen : set of '.' , ',';

  i,vokale_zaehler, konsonanten_zaehler: Integer;

  vokale_zaehler:=0;
  konsonaten_zaehler:=0;

  for i:=1 to length(s) do
    begin
       if s[i] in vokale then
         inc(vokale_zaehler)
       else
         if s[i] not in satzzeichen then
            inc(konsonanten_zaehler);
    end;
  showMessage('Der Text enthält '+vokale_zaehler+' Vokale und '+konsonaten_zaehler+' Konsonanten.');

procedure TForm1.Button1Click(Sender: TObject);
var
  i,vokale_zaehler, konsonanten_zaehler, ziffern_zaehler: Integer;
  vokale : set of char;
  satzzeichen : set of char;
  ziffern : set of char;
  s:string;

begin
  vokale := ['a','A','e','E','i','I','o','O','u','U'];
  satzzeichen := ['.' , ','];
  ziffern := ['0'..'9'];

  vokale_zaehler:=0;
  konsonanten_zaehler:=0;
  ziffern_zaehler :=0;

  s:=edit1.Text;
  for i:=1 to length(s) do
    begin
       if s[i] in vokale then
         inc(vokale_zaehler)
       else
         if s[i] in ziffern then
           inc(ziffern_zaehler)
         else
           if not (s[i] in satzzeichen) then
             inc(konsonanten_zaehler);

    end;
  showMessage('Der Text enthält '+IntToStr(vokale_zaehler)+' Vokale und '+IntToStr(konsonanten_zaehler)+' Konsonanten.');
end;