delphi6中image控件画布闪烁问题

[mezw]

delphi6中
程序
在image1的onmousemove事件中有
with image1.canvas do
begin
pen.color:=clred;
pen.style:=psdash;
moveto(x,y);
lineto(x,y);
end;
运行后image不停闪烁，但在delphi5中无此想象，
如何克服delphi6中的闪烁，

[王集鹄]

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
end;

[shadowno]

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
end;

[shadowno]

最好用Tpainbox，不要用image