unit HiAsmUnit;

interface
  
uses Kol,Share,Debug;
type
   Product = record
      Name: String[80];
      Code : Word;
      Cost: Comp
   end;
   
type
 THiAsmClass = class(TDebug)
   
   private
   
   public
   onEvent:THI_Event;
   Data:THI_Event;
   N:THI_Event;
   
   procedure doAdd(var _Data:TData; Index:word);
   
 end;

implementation

procedure THiAsmClass.doAdd;
var F:file of Product;
begin

end;

end.