pItem = class name : string; layer: string; end; lItem = class name : string; protocols : array of pItem; end;