DecodeDate(date, Year, Month, Day);edit1.text:=inttostr(year)------------------var year,month,day:word;