Hola
Hace ya algun tiempo el Maestro Al Gonzalez hizo el codigo para restar fechas:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
Var
FechHora1 :TDateTime;
FechHora2 :TDateTime;
Dias :Integer;
begin
FechHora1:= DateTimePicker1.DateTime;
FechHora2:= DateTimePicker2.DateTime;
Dias := Trunc (FechHora2) - Trunc (FechHora1);
Edit1.Text:= IntToStr(Dias);
end;
Saludos