TDateTime, переменая Опции

[compiler]

как вогнать дату в переменную TDateTime? (FP)

[Артемий]

Uses SysUtils, DateUtils;
Var
	D1,D2 : TDateTime;
  s: string;
Begin
	D1:=DateOf(Now());
  readln(s);
  D2:=strtodate(s);
	Writeln('Number of days between ');
	Writeln(DateToStr(D2),' and ',DateToStr(D1));
	Writeln(DaysBetween(D1,D2));
        ReadLn
end.