ListView - Column-Header einfärben?

[100nF]

also bei mir wird auch dieser teil eingefärbt.
wahrscheinlich liegt es daran, dass ich den code noch ein bisschen abgeändert habe.
ich habe ihn mal aus dem source meines programmes rauskopiert:

Delphi-Quellcode:

procedure TForm1.HeaderWndProc1(var Message: TMessage);
Var XCanvas: TCanvas;
    XDC: HDC;
    ARect: TRect;
    i:integer;
    Spaltenanfang:integer;
begin
  if Assigned(FOldWndProc1) then
    Message.Result := CallWindowProc(FOldWndProc1, FHeader1, Message.Msg,
                                        Message.WParam, Message.LParam);
  case Message.Msg of
    WM_PAINT:
    begin
      XCanvas := TCanvas.Create;
      XDC := GetWindowDC(FHeader1);
      try
        XCanvas.Handle := XDC;
        Spaltenanfang:=0;
        Windows.GetClientRect(FHeader1, ARect);
        Arect.left:=Spaltenanfang;
        Arect.right:=Spaltenanfang+listview1.width;
        InflateRect(arect,-1,-1);
        //Hintergrund
        XCanvas.Brush.Color:=listviewheaderscolor;
        xcanvas.FillRect(arect);
        Frame3d(XCanvas, ARect, clBtnHighlight,clBtnShadow,1);
        for i:=0 to listview1.Columns.Count-1 do
          begin
            //rect der aktuellen Spalte ermitteln
            Windows.GetClientRect(FHeader1, ARect);
            Arect.left:=Spaltenanfang;
            Arect.right:=Spaltenanfang+listview1.Column[i].Width;
            inc(Spaltenanfang,listview1.Column[i].Width);
            InflateRect(arect,-1,-1);
            //Hintergrund
            XCanvas.Brush.Color:=listviewheaderscolor;
            xcanvas.FillRect(arect);
            Frame3d(XCanvas, ARect, clBtnHighlight,clBtnShadow,1);
            //Text ausgeben
            drawtext(Xcanvas.Handle,pchar(listview1.Column[i].caption), length(listview1.Column[i].caption),arect,dt_left);
          end;
      finally
        ReleaseDC(FHeader1, XDC);
        XCanvas.Free;
      end;
    end;
  end;
end;