unit hiBuBu;

interface

uses Kol,Share,Debug;

type
  THIBuBu = class(TDebug)
   private
// тут переменные и методы класса, доступные только классу
   public
// Свойства компонента
    _prop_A:string;
    _prop_B:integer;

// Данные компонента
    _data_Data:THI_Event;

// События компонента
    _event_onResult:THI_Event;

// Методы компонента
    procedure _work_doAAA(var _Data:TData; Index:word);
    procedure _work_doBBB(var _Data:TData; Index:word);

// Переменные компонента
    procedure _var_Result(var _Data:TData; Index:word);
  end;

implementation

procedure THIBuBu._work_doAAA;
begin
end;

procedure THIBuBu._work_doBBB;
begin
end;

procedure THIBuBu._var_Result;
begin
end;

end.