Тип события, возникающего при изменении стиля отображения объектов
TCompareStylesEvent = procedure(Sender: TObject;
aLibraryID, aStyleType: integer; aLibraryMark: string;
Style1, Style2: PStyle; Data: Integer; var Compare: Integer) of object;