マウスで画像を動かす際のちらつきをなくすには

解決

---

過去ログ等を参考にしてマウスクリックした時にマウス下にある画像を以下のような方法で動かしています
動かすことには成功したのですが、どうしても動かしている最中に画像がちらついてしまって困っています
ちらつくと言うよりは、横に縞が入ってしまって後ろにあるフォームの色が見えてしまっている感じです

private
    { Private 宣言 }
  Orgpoint : Tpoint;
  Drawing :  Boolean;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Drawing := true;
  Orgpoint := point(x,y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
   P : TPoint;
begin
  If Drawing then begin
     P := Image1.Parent.ScreenToClient(Image1.ClientToScreen(Point(X, Y)));
     Image1.Left := P.X - Orgpoint.x;
     Image1.Top := P.Y - Orgpoint.y;
  end;
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Drawing := False;
end;

環境はDelphi7 Professional
WindowsXp Home SP3
です。
スパイダソリティアが大好きで、トランプのマークや使用する組数を色々カスタマイズできるものを作りたいと思っています
ですが、最初のテスト段階でつまづいてしまい、困ってます。
どうぞよろしくお願い致します

編集 削除

---

DoubleBufferedで検索を

編集 削除

---

3Kさん どうもありがとうございました

ご指摘の検索でうまくいきました！
まだまだ検索力不足でお手数をお掛けし申し訳ありませんでした

編集 削除

---

解決押し忘れました
どうもありがとうございました

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。