TcxSpinEditGetValueEvent = procedure(Sender: TObject; const AText: TCaption; out AValue: Variant; var ErrorText: TCaption; var Error: Boolean) of object;