Listbox-Scrollbalken einfärben?

[mlspider]

Irgendwie passt das Erscheinungsbild der Standardlistbox nicht zu meinem Design. Daher färbte ich kurzer Hand das Teil wie folgt ein:

Delphi-Quellcode:

procedure TTracklist.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListbox) do
  begin
    Canvas.Font.Color := clWhite; //Schriftfarbe

    if (odSelected in State) then //Focus
    begin
      Canvas.Brush.Color := clRed;
    end;
    Canvas.FillRect(rect);
    DrawText(Canvas.Handle, Pchar(Items[Index]), Length(Items[Index]), Rect,
      DT_SINGLELINE or DT_VCENTER);
  end;
end;

Alles gut und schön, nur wie bekomme ich den hässlichen Balken mit Arrow etc. eingefärbt?