Тип события, возникающего по слою
TLogicalLayerEvent = procedure(Sender: TObject; lCode, llIndex: integer) of object;