Выделение элементов ListView во время выполнения не работает в Delphi Tokyo

Question

Этот код работает в Delphi 10.1 Berlin, но не в Delphi Toyko 10.2.3:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if item.Caption='Item2' then
  begin
    Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold];
    Sender.Canvas.Font.Color := clRed;
  end
  else
    Sender.Canvas.Font.Style := Sender.Canvas.Font.Style - [fsBold]
end;

Красный цвет шрифта все еще работает, но стиль перестал оказывать какое-либо влияние.

Должен ли я сейчас делать что-то другое?