Полностью изменить фон ListBox программно?

[apromix]

Собственно сабж. В программе нужно будет часто менять фон. Делаю так:

      LB.Color := Color;
      LB.Repaint;

Получается так, что фоном закрашивается только часть листбокса, а нужно весь. Что делаю не так? Спасибо

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Color:=clLime;
  ListBox1.Canvas.Brush.Color:=clLime;
  ListBox1.Canvas.FillRect(ListBox1.ClientRect);
  Repaint;
end;

Странно, но этот баг я увидел впервые )))