var
r, s:set of char;
sesli, sessiz, i, uzunluk, rakam:integer;
begin
s:= ['a', 'e', 'ı', 'i', 'u', 'ü', 'o', 'ö'];
r:= ['0'..'9'];
uzunluk:=Length(Edit1.Text);
sesli :=0;
sessiz:=0;
rakam:=0;
For i:=1 to uzunluk do begin
if Edit1.Text[i] in s then sesli :=sesli+1
else if Edit1.Text[i] in r then rakam :=rakam+1
else sessiz:=sessiz+1;
end;
Label3.Caption:=IntToStr(sesli)+' tane sesli harf vardır.';
Label4.Caption:=IntToStr(sessiz)+' tane sessiz harf vardır.';
Label5.Caption:=IntToStr(rakam)+' tane rakam vardır.';