procedure SetValueAsDateTime(const AValue: TDateTime); virtual;