Calculer la différence entre deux dates

procedure TForm1.Button1Click(Sender: TObject);
var
datum1,
datum2 :TDateTime;
d if ferenz:integer;

begin
datum1:=EncodeDate(2000,06,15); //Date 2000/06/15
datum2:=EncodeDate(2000,01,01); //Date 2000/01/01
d if ferenz:=trunc(datum1-datum2);
Label1.caption:=inttostr(d if ferenz);
end;