TcxPCCanCloseEvent = procedure(Sender: TObject; var ACanClose: Boolean) of object;