Alquem sabe subtrair data no delphi - Por favor me ajudem!!

Simples
DataHoje - DataAmanha;

procedure SubTrai;
var
d1,d2,d3:TDate;
begin
d1:=Date; //Data do dia
d2:=strtodate(´1/1/2001´);
d1:=d1-5; //subtrai 5 dias da data de hoje
d3:=d1-d2; //Subtrai duas datas
end;