TdxGanttControlAssignmentEvent = procedure(Sender: TObject; AAssignment: TdxGanttControlAssignment) of object;