procedure xxxxx.xxxxxAdvancedCustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
// NotWorking
Sender.Canvas.Font.Style := [fsBold];
// Working
Sender.Canvas.Font.Color := clRed;
end;