くだすれDelphi（超初心者用）その20

ScrollBoxにImageを貼り付けImageのAutoSizeをTrueにすればスクロールバーでは画像を動かすことが
できますが、このとき画像をマウスでつまんで(^^;)動かすにはどうしたらいいのでしょう？　次のよ
うにやってみたのですが全然ダメでした。
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
begin
　If Button = mbLeft Then Image1.BeginDrag(False);
end;

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
　State: TDragState; var Accept: Boolean);
begin
　if Source is TImage then
　begin
　　Accept:=True;
　　Image1.Left:=X;　　Image1.Top:=Y;
　end;
end;

procedure TForm1.ScrollBox1DragDrop(Sender, Source: TObject; X,
　Y: Integer);
begin
　Image1.Left:=X;　Image1.Top:=Y;
end;