如何解決在delphi中拖動image時映像閃爍的問題

    近日要做一個資訊採集卡設計器，需要使用在運行狀態拖動image的功能。將image放到一個panel上，然後將image的align設為alclient。再用image裝載一幅圖。
   設定了image的三個事件。mousedown、mousemove、mousedown。
  procedure TImage.ImageMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
 begin
    if flag then
    begin
      panel1.Left := panel1.Left + X - OldX;
      panel1.Top := panel1.Top + Y - OldY;
    end;
end;

procedure TImage. ImageMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  flag := false;
end;

procedure  TImage.ImageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  OldX := X;
  OldY := Y;
  flag := true;
end;

    但是在拖動image時，映像總是抖動。最後找了好久，才發現將panel的docksite設為true可以解決這個問題，可以是這個屬性設為true時在panel中的所有控制項都可以停靠在panel上，所以image就不會重新整理了嗎。誰有更好的解釋docksite對於panel是做什麼的。