Множества

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество согласных букв.
  D = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'К', 'Л', 'М', 'Н', 'П',
    'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ'
  ];
var
  //Исходная строка.
  StrSrc : String;
  //Индекс символов в строке.
  i : Integer;
  //Множество согласных букв, участвующих в записи слов.
  D1 : set of Char;
  //Множество согласных букв, неучаствующих в записи слов.
  D2 : set of Char;
  //Отдельный символ.
  Ch : Char;
  //Строка со сведениями о результате исследования.
  StrRes : String;
begin
  StrSrc := Memo1.Text;
 
  D1 := [];
  for i := 1 to Length(StrSrc) do begin
    Ch := AnsiUpperCase( StrSrc[i] )[1];
    if Ch in D then D1 := D1 + [Ch];
  end;
 
  D2 := D - D1;
 
  //Формируем строку результата.
  StrRes := '';
  if D2 <> [] then begin
    for Ch := Low(Char) to High(Char) do begin
      if Ch in D2 then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + Ch;
      end;
    end;
  end;
 
  Memo2.Clear;
 
  //Распечатываем в Мемо2 результаты исследования:
  if D2 <> [] then begin
    Memo2.Lines.Add('Перечень согласных букв, которые не встречаются ни в одном слове:');
    Memo2.Lines.Add(StrRes);
  end else begin
    Memo2.Lines.Add('Исходный текст содержит все согласные буквы алфавита.');
  end;
end;