Thank you - this works fine, it is the "Windows" way, though. I would have expected that bsPattern for TBrush could be supported in way analogous to TPen's psPattern - you set Pen.Style := psPattern and call Pen.SetPattern().
Can I interpret your answer in a way that the LCL itself does not support the BrushStyle bsPattern, at least at the moment? In this case, I should write a feature request.
The background of the question is that I wrote a TChartCombobox which can be used to edit series pointer styles, pen styles, pen widths, and brush styles, and could not find a reasonable solution for the BrushStyle bsPattern.