procedure TForm1.ImageEnMView2DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i: integer;
  idx, im: integer;
  tmpbmp: TBitmap;
begin
  im := ImageEnMView2.InsertingPoint(X, Y);
  for i := 0 to ImageEnMView1.MultiSelectedImagesCount - 1 do
  begin
    idx := ImageEnMView1.MultiSelectedImages[i];
    tmpbmp := ImageEnMView1.GetBitmap(idx);

    ImageEnMView2.InsertImage(im);
    ImageEnMView2.SetImage(im, tmpbmp);
    ImageEnMView2.MIO.Params[im].FileName := ImageEnMView1.MIO.Params[idx].FileName;
    inc(im);

    ImageEnMView1.ReleaseBitmap(idx);
  end;
end;