带背景图片的窗体上，设label是滚动子，背景图片也跟着动，哪位帮小弟我一下？

带背景图片的窗体上，设label是滚动子，背景图片也跟着动，哪位帮我一下？？
窗体 FORM1 背景 image1 label timer1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.left：=label1.left -20
  if lable1.left+label1.width<1 then
  label1.left:=form1.width
  end;


这样的话 图片移动可以移动 但是会闪屏 而且背景图片也跟着移动 

我想要的结果是 不闪屏 背景不移动 

来个大侠 帮帮忙 不胜感激！！！！






------解决方案--------------------
label1.Parent.DoubleBuffered :=true;
------解决方案--------------------
。。。。。移动？还是闪烁？
------解决方案--------------------
移动一个控件是不好的设计思路，换种方法吧，例如，写一个控件，抓取控件位置的背景图作为控件背景，自绘出来，然后用 textout 或者 drawtext 来改变文字的位置，这样，看起来文件就是动的，而背景不动了。
------解决方案--------------------
txtLeft,txtWidth,txtTop:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
txtLeft :=txtLeft-20;
if txtLeft + txtWidth<1 then
txtLeft:=self.width;
self.Refresh;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
txtLeft:=40;
txtWidth:=200;
txtTop:=100;
self.DoubleBuffered:=true;
self.Canvas.TextOut(txtLeft,txtTop,'hello world');
end;

procedure TForm1.FormPaint(Sender: TObject);
var
Graphic: TGraphic;
begin
self.Canvas.Lock;
Graphic:= image1.Picture.Graphic;
self.Canvas.StretchDraw(self.ClientRect,Graphic);
self.Canvas.TextOut(txtLeft,txtTop,'hello world');
self.Canvas.Unlock;
end;

这里放一个image1 设置为不可见，里面的图片就是你的背景图。

呵呵，这样的哈就不闪而且可以满足你任意的要求了