type
  TCorzina = class(TObject)
    serial: TSdpoSerial;
    timeDelay: integer;
  private

  public
    procedure setTimeDelay(timed: integer);
    function CheckLRC(ins: string): string;
    function MyHexToBin(Hexadecimal: string): string;
  end;

  TModul = class(TCorzina)
    adress: integer;
    CheckSum: boolean;
    MyName: string;
  private

  public
    procedure getMyName();
  end;

  Tm87017 = class(TModul) // чтение 8-и аналоговых датчиков

  private

  public
    function ReadChanelString(ch:integer):string;
    function ReadChanelFloat(ch:integer):double;
    procedure ReadAll(var res: array of double);
  end;

  Tm87064 = class(TModul)  // модуль на 4 реле

  private

  public
    function ReadChanel(ch:integer):boolean;
    function SetChanel(ch:integer; state:boolean);
    procedure ReadAll(var res: array of boolean);
  end;