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