Функция проверки включения слоя в список
TCheckMapLayer = function (Sender: TObject; lCode: integer): boolean;
Sender