procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Down then
  begin
    // turn off the scrollbars
    ImageEnVect1.ScrollBars := ssNone;
    // user can navigate the image with a left click and mouse movement.
    ImageEnVect1.MouseInteract := [miScroll];
    // set the cursor to crHand
    ImageEnVect1.Cursor := 1782;
  end
  else
  begin
    // turn on the scrollbars
    ImageEnVect1.ScrollBars := ssBoth;
    ImageEnVect1.MouseInteract := [];
    // allow selecting objects
    ImageEnVect1.MouseInteractVt := [miObjectSelect];
    ImageEnVect1.Cursor := 1785;
  end;
end;