for i := _min to _max - 1 do
  begin
    j := Round(Random *(_max - i) - 0.5 + i);
    FRnd := IRnd[j];
    if i<>j then
      begin
        rndidx := IRnd[i];
        IRnd[i] := IRnd[j];
        IRnd[j] := rndidx;
      end;
    _hi_onEvent(_event_onRandom, integer(Round(FRnd)));
  end;