怎么消除抖动？？？(30分)

我就在单机上做了个视频复制的东西
就是把Panel1里播的画面每隔0.1S刷新一次都Image1上。。。
为什么Image1上的画面每隔大约1S会闪一下
该怎么解决这个问题 让Image1上的画面和Panel1的画面完全没区别

再提问的时候把问题说清楚，就这个例子来说，你怎样截的图，有怎么画到iMAGE上的，关键的代码是什么。

哦 ~
我是用TBitmap和TCanvas来截的图。。。核心代码如下

procedure TForm1.Timer1Timer(Sender: TObject);
var
BMP:TBitmap;
canvas:TCanvas;
rect:TRect;
begin

BMP:=TBitmap.Create;
canvas:=TCanvas.Create;
canvas.Handle:=GetDC(Panel1.Handle);
rect:=Panel1.ClientRect;
BMP.Width:=rect.Right-rect.Left;
BMP.Height:=rect.Bottom-rect.Top;
BMP.Canvas.CopyRect(rect,canvas,rect);
Image1.Picture.Bitmap:=BMP;
Image1.Refresh;
BMP.Free;
canvas.Free;
end;

Image1.Picture.Bitmap:=BMP;
Image1.Refresh;
BMP.Free;
//
上面那几句，把mmp给了image1，然后又free,是不是有待改进

接受答案了.