Как изменить код, написанный для изображения, чтобы он работал с картой?

Для того чтобы изменить код на Delphi, написанный для изображения, чтобы он работал с картой, необходимо внести следующие изменения:

1. Заменить функции, которые получают координаты мыши (например, MouseDown, MouseMove, MouseUp), на функции, которые получают координаты сдвига карты (например, OnMapClick, OnMapDragStart, OnMapDragEnd).

2. Изменить логику обработки координат: вместо перемещения изображения в пределах окна, перемещать карту в соответствии с координатами сдвига.

Пример адаптации кода на Delphi для перемещения карты с помощью мыши:

```delphi
procedure TForm1.OnMapClick(Sender: TObject; X, Y: Integer);
begin
  Map.Left := Map.Left + X;
  Map.Top := Map.Top + Y;
end;

procedure TForm1.OnMapDragStart(Sender: TObject; X, Y: Integer);
begin
  Dragging := True;
  StartX := X;
  StartY := Y;
end;

procedure TForm1.OnMapDragEnd(Sender: TObject; X, Y: Integer);
begin
  if Dragging then
  begin
    Map.Left := Map.Left + (X - StartX);
    Map.Top := Map.Top + (Y - StartY);
    Dragging := False;
  end;
end;
```

Этот код позволит перемещать карту с помощью сдвига, а не изображения курсором мыши.

Карта в смысле большая, чтобы мышкой её скролить? 
 Это не рисуют в TImage. Возьми PaintBox, при перемещении или отпускании мыши считай смещение мыши, рисуй в буфере в TBitmap соответствующий кусок карты, в onPaint отображай его.