#pas
procedure THIRandom._work_doRandomWithoutRepeats;
var
  RndList: PStrListEx;
  i, rndidx: integer;
  T: TSystemTime;  
begin
  RndList := NewStrListEx;
  for i := Round(_prop_Min) to Round(_prop_Max) do
    RndList.AddObject(', i);  
  Randomize;
  for i := 0 to RndList.Count - 1 do
  begin
    rndidx := Round(Random * RndList.Count - 0.5);
    FRnd := RndList.Objects[rndidx];
    RndList.Delete(rndidx);  
    _hi_onEvent(_event_onRandom, Round(FRnd));
  end;
  RndList.free;
end;