var વાય, એમ, ડી: વર્ડ; dt: TDateTime; વાય: = 2001; એમ: = 2; ડી: = 18; dt: = એન્કોડડેટેડ (વાય, એમ, ડી); શોમેસેજ ('બોર્ન એક વર્ષની ઉંમરે' + ડેટ ટુએસટ્ર (ડીટી)) હશે.