TdxOcNewKeyEvent = procedure(Sender: TObject; MaxValue: Variant; var KeyValue: Variant) of object;