procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Image1.Dragging then
begin
ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position - X + BgnPoint.X;
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - Y + BgnPoint.Y;
end;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.BeginDrag(False);
end;