Source position: tiObject.pas line 270
protected procedure TtiFieldDate.SetAsDateTime(
const AValue: TDateTime
); virtual;