TcxPCNewEvent = procedure(Sender: TObject; AIndex: Integer) of object;