Canvas no Listview

como altero a cor dos columnsheader no modo vsreport de um listview?


procedure TFPesqDados.ListView1AdvancedCustomDraw(Sender: TCustomListView;
const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color := clBlack;
Sender.Canvas.Rectangle(1,1,1,1);
end;

tava tentando assim apenas por teste e nao funcionou..
seriam todos os columnsheaders.
passando o ARect nao rolou tmbm

[]´s e feliz natal pra qm souber me ajudar :p