Перерисовка заголовков колонок ListView

procedure TForm1.ListViewNewWndProc(var Msg: TMessage);
begin
   FListViewOldWndProc(msg); // старый WndProc
    case msg.Msg of
    WM_NCPAINT:
      Redraw(pl1);
    WM_PAINT:
      Redraw(pl1);
    WM_NCCALCSIZE:
      ShowScrollBar(pl1.Handle, SB_VERT, FShowVert)
  end;
end;
////////
procedure TForm1.Redraw(Sender: TObject);
var
  control:twincontrol;
  dc:hdc;
  brush:hbrush;
  r:trect;
begin
  if not (sender is twincontrol) then
    exit;
  control := twincontrol(sender);
  if not control.handleallocated then
    exit;
  if (GetWindowLong(control.handle, GWL_STYLE) and WS_BORDER = WS_BORDER) then
    exit;
  dc := GetWindowDC(control.Handle);
  try
    brush := CreateSolidBrush(ColorToRGB(clred));
    r.Top:=1;
    r.Left:=1;
    r.Width:=vcontrol.Width-2;
    r.Height:=25;
    try
      fillrect(dc,r,brush);
    finally
      DeleteObject(brush);
    end;
  finally
    ReleaseDC(control.handle, dc);
  end;