procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  iX: integer;
  iY: integer;
begin
  iX := ImageEnView1.XScr2Bmp(X);
  iY := ImageEnView1.YScr2Bmp(Y);
  if ((iX <= 0) or (iX > ImageEnView1.IEBitmap.Width)) then
  begin
    ImageEnView1.CropToolInteraction.Cancel();
    ImageEnView1.Deselect;
  end
  else if ((iY <= 0) or (iY > ImageEnView1.IEBitmap.Height)) then
  begin
    ImageEnView1.CropToolInteraction.Cancel();
    ImageEnView1.Deselect;
  end
  else
    ImageEnView1.MouseInteract := [miCropTool];
end;