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

[compiler]

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

[volvo]

А так:

Uses SysUtils, DateUtils;
Var
	D1,D2 : TDateTime;
Begin
	D1:=DateOf(Now());
	D2:=StrToDate('10/02/2006');
	Write('Number of days between ');
	Write(DateToStr(D2),' and ',DateToStr(D1));
	Writeln(' : ',DaysBetween(D1,D2));	
        ReadLn;
End.

?
Забудь про Today !!!