procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageEnView1.Gestures.Pan.Enabled := True;
  ImageEnView1.Gestures.Zoom.Enabled := True;
  ImageEnView2.Gestures.Pan.Enabled := True;
  ImageEnView2.Gestures.Zoom.Enabled := True;
  ImageEnView1.IO.LoadFromFile('G:\Images\Microsoft\Monarch.jpg');
  ImageEnView2.IO.LoadFromFile('G:\Images\Microsoft\Monarch.jpg');
end;

procedure TForm1.ImageEnView1ViewChange(Sender: TObject; Change: Integer);
begin
  ImageEnView2.ViewX := ImageEnView1.ViewX;
  ImageEnView2.ViewY := ImageEnView1.ViewY;
end;

procedure TForm1.ImageEnView2ViewChange(Sender: TObject; Change: Integer);
begin
  ImageEnView1.ViewX := ImageEnView2.ViewX;
  ImageEnView1.ViewY := ImageEnView2.ViewY;
end;