procedure THIBeep._work_doBeep;
var fr,dr:integer;
begin
   fr := ReadInteger(_Data,_data_Freq,_prop_Freq);
   dr := ReadInteger(_Data,_data_Duration,_prop_Duration);
   if fr = 0 then sleep(dr) else Beep(fr,dr);
   _hi_CreateEvent(_Data, @_event_onBeep);
end;