Корректировка TFontDialog

[The_Immortal]

Всех приветствую!

Необходимо отредактировать TFontDialog - в первом варианте убрать выпадающий список "Цвет:" (и лейбл, и сам список). Во втором варианте добавить в выпадающий список свое значение.
Понятно, что правильно замутить свой компонент, но на просторах вроде как есть рабочие решения подобных задач.

Однако уже на этапе переназначения класса TFontDialog возникает ошибка:

type
  TCustomFontDialog = class(Vcl.Dialogs.TFontDialog)
  const
    IDCOLORCMB = $473;
  protected
    procedure DoShow; override; // E2065 Unsatisfied forward or external declaration: 'TCustomFontDialog.DoShow'
end;

procedure TCustomFontDialog.DoShow;
begin
   ShowWindow(GetDlgItem(Handle, IDCOLORCMB), SW_HIDE);
end;

Подскажите, пожалуйста, где я дурак?

И второй вопрос: как выйти на идентификатор Label'а "Цвет:" ? Я узнал, что у него идентификатор 1091, но как обратиться к контролам модального окна (такого как TFontDialog) ?

Спасибо!

P.S. Delphi 10.4.