я не уверен.. я не в курсе твоей терминологии и проблематики

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;

зачем?..

какую бизнес-задачу ты решаешь?

лучше на pastebin.com

автоматизация центральных тепловых пунктов

модуль разве является корзиной?

нет

если ответ на мой вопрос, то  тогда нефиг его наследовать от корзины

что бы у всех кто наследует TModul был доступ к serial: TSdpoSerial

ну так в TModul и положи ссылку на это

Corzina: TCorzina; так? но разве не придется каждые раз создавая модуль создавать и корзину?

если надо что-то из корзины, то да, ссылку на корзину. один раз ее создал и раздал модулям ссылки. это ж основы

через create передавать TModul уже созданный экземпляр класса TCorzina. логично, спасибо

TChannelData = record
 ID: Integer;
 RxData: array of Byte;
 TxData: array of Byte;
end;

TI87017Module = class
public
 ComPort: TComPort;
 Channels: array[0..19] of TChannelData;
 procedure ReadData(ChanID: Integer; var Data: array of Byte);
 procedure WriteData(ChanID: Integer; const Data: array of Byte);
end;

В модуле 1 последовательный порт и 10 (или 20) каналов. Так и делай.

Периодически нужно читать ком-порт, разгребать полученные данные и раскидывать по каналам в свойство RxData. И заодно собирать данные для отправки из свойств TxData, трансформировать в протокол модуля и отправлять в порт.

А, это же модуль ввода, TxData не нужно.

Я обычно создаю метод класса Tick(), который вызывается с маленькими интервалами по таймеру или в цикле фонового процесса. И в нем происходит чтение из порта, отправка команд и данных.

ну я читаю ответ после паузы сразу для каждого модуля свои методы которые возвращают уже сформированные данные