TdxLayoutGroupExpandingEvent = procedure(Sender: TObject; var Allow: Boolean) of object;