为啥label时有闪动

为什么label时有闪动
用label滚动显示数字，为什么会有白条闪动（窗体背景红色，label6.transparent:=true;timer的1interval设为10）
listbox1.Selected[random(listbox1.Items.count)]:=true;
label6.Caption:= listbox1.items[listbox1.itemindex];
[解决办法]

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
  //或者
  //Label1.Parent.DoubleBuffered := True;
end;