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-а