[[maeyanes]]

Otra opción es usar la función DaysBetween de la unidad DateUtils:

Código Delphi [-]
function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;


// Un ejemplo de uso:
var
  Days: Integer;

begin
  Days := DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date);
end;

Saludos...