Множества

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество гласных букв.
  Da = [
    'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я',
    'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'
  ];
  //Множество согласных букв.
  Db = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М',
    'Н', 'П', 'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ',
    'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м',
    'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'
  ];
  //'ъ', 'ь' - Это буквы, не обозначающие отдельных звуков.
  //Т. е. не являющиеся ни гласными ни согласными.
var
  i, Len, CntA, CntB : Integer;
  S : String;
begin
  S := Memo1.Text;
  Len := Length(S);
  CntA := 0;
  CntB := 0;
  for i := 1 to Len do begin
    if S[i] in Da then
      Inc(CntA)
    else if S[i] in Db then
      Inc(CntB)
    ;
  end;
 
  S := 'Количество гласных букв = ' + IntToStr(CntA) + '.'
    + #10 + 'Количество согласных букв = ' + IntToStr(CntB) + '.'
  ;
  if CntA < CntB then
    S := S + #10 + 'Согласных букв больше, чем гласных.'
  else if CntA > CntB then
    S := S + #10 + 'Гласных букв больше, чем согалсных.'
  else
    S := S + #10 + 'Количество гласных и согласных букв одинаковое.'
  ;
 
  ShowMessage(S);
end;