Virtual Controls (Virtual StringTree)

Pessoal, bom dia!

Estou usando componente Virtual StringTree para carregar meus dados de "contas a pagar" e "contas a receber"
Gostaria de colorir assim como no ListVieww ficando uma linha branca e outra colorida....

Aguem sabe?

Abaixo segue o codigo para colorir o ListVieww


  with ListView1.Canvas.Brush do
  begin
    if (Item.Index mod 2) = 0 then Color := $00FFEBD7
    else Color := clWhite;
  end;            // COMANDO PARA "ZEBRAR" O LISTVIEW