procedure THIRandom._work_doRandom0;
begin
FRnd := Random*(_prop_Max - _prop_Min + 1) + _prop_Min - 0.5;
_hi_CreateEvent(_Data,@_event_onRandom,integer(Round(FRnd)));
end;