請問我想知道 2000年1月10日 與 2000 年1月15日相差幾天該怎樣做....謝謝

var Date1,Date2:TDate;
Delta:double;
Delta:=Date2-Date1

------
江上何人初见月，江月何年初照人

var Date1,Date2:TDate;
Date1 := 2006/10/10;
Date2 := 2006/10/5;
showmessage(inttostr(round(date2-date1)));
這樣子不行呀..請問要怎樣設置date1

var
vdat1, vdat2 :tDate;
vDif :double; //差異日
begin
vDat1 := '1999/01/01';
vDat2 := now;
vDif := vDat2 - vDat1; //請注意，相減後的整數是兩個日期的差異天數，其小數值是差異時間
end;

  vDat1 := '1999/01/01'; // incompatible types : 'Tdate' and 'String'
===================引 用 文 章===================
var
vdat1, vdat2 :tDate;
vDif :double; //差異日
begin
vDat1 := '1999/01/01';
vDat2 := now;
vDif := vDat2 - vDat1; //請注意，相減後的整數是兩個日期的差異天數，其小數值是差異時間
end;

用這個就可以加減 , strtodate