在运行时Bolding 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;

红色字体颜色仍然有效，但样式已停止有效。

我现在应该做些不同的事吗？