Hola CFPA86:
puedes usar la función
DaysBetween que se encuentra en la unidad
DateUtils (tienes que agregar
DateUtils en la sección de uses de tu archivo .pas para poder tener acceso a esta función y muchas otras que te servirán para trabajar con fechas)
Aqui tienes un ejemplo que calcula el numero de dias entre dos fechas ingresadas en dos cajas de texto:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));
end;
Espero te sea util.