#pas
 THiAsmClass = class(TDebug)
   private
    var a:integer;
   public

 end;

unit HiAsmUnit;

interface  


uses kol,Share,Debug;   // Объявление внешних модулей необходимых для работы
//==============================================================================
type                   // Секция объявления и описания типов
 THiAsmClass = class(TDebug)
 
   private            // всё, используемое только внутри данного Unit-а
   i:integer;         
   procedure calck;   

   public             // Всё, что может быть использовано вне Unit-a
   Procedure values(var _Data:TData; Index:Word); 
 end;                 // Конец объявления типа
//==============================================================================
implementation  // начало раздела кодов

Procedure THiAsmClass.calck;
 var n:integer;
begin
 for n:=0 to 12 do i:=i+n;
end; 

Procedure THiAsmClass.values;
begin
    calck;
    dtInteger(_Data,i);
end;
end.            // конец Unit-а

#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;