procedure THIRandom._work_doRandomWithoutRepeats;
var
  i, j, rndidx, _max: integer;
  IRnd: Array of integer;
begin
  _max := Round(_prop_Max);
  SetLength(IRnd, _max);
  for i:= 0 to _max - 1 do
    IRnd[i] := i;
  for i:=0 to _max - 1 do
  begin
    j:= Round(Random *(_max - i) - 0.5 + i);
    rndidx := IRnd[i];
    IRnd[i] := IRnd[j];
    FRnd := IRnd[j];
    IRnd[j] := rndidx;
    _hi_onEvent(_event_onRandom, Round(FRnd));
  end;
  SetLength(IRnd, 0);     
end;

  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;