Format Value for _TDateTime.dat_Format substitute Today, Tomorrow, etc.
Source position: amigados.pas line 372
const DTF_SUBST = 1 shl DTB_SUBST;