#pas
Procedure THiAsmClass.doBeep;//Повторное обьявление процедуры 
var 
fr,dr:integer;              
ob:string;                   
begin
   fr := ReadInteger(_Data,Freq); 
   dr := ReadInteger(_Data,Dur);  
   if fr < 40 then fr := 40; 
   if fr = 0 then sleep(dr) else Beep(fr,dr);

{Roma, а Sleep у тебя никогда не сработает потому, что fr=0 никогда не будет потому,} 
{ что  if fr < 40 then fr := 40; }
                          
   ob:= int2str(dr)++int2str(fr); 
 _hi_OnEvent(onBeep,ob);                     
end;