defined variable

old time:TDateTime；

now time:TDateTime；

temp:real；

Ii: integer;

originally

old time:= Now；

Speaking of computing

NowTime := Now;

temp:=(now time-old time)* 24 * 60 * 60；

ii:= round(temp)；