Display Problem In pop up DrawCellTable

The bug occurred  when a pop up Time series grid was displayed. The first
row and line was filled with black color. The problem was located in louise in
tsgrid.pas in the procedure
TTimeseriesGrid.DrawCellTable
I changed the input of the function
ExtTextOut(Canvas.Handle, ReferencePoint, ARect.Top + 2, ETO_CLIPPED or
  ETO_OPAQUE, @ARect, PChar(s), Length(s), nil);
  to
ExtTextOut(Canvas.Handle, ReferencePoint, ARect.Top + 2, ETO_CLIPPED,
  @ARect, PChar(s), Length(s), nil);