Sbagli nell'uso del campo data/ora. Il tipo TDateTime è, sotto sotto, un numero a virgola mobile. La parte intera memorizza i giorni trascorsi dal 1899, mentre la parte decimale rappresenta la porzione di tempo trascorsa.

Se sommi un valore intero ad una variabile TDateTime, non fai altro che aggiungere dei giorni a quella data.

Per svolgere operazioni sulle date e le ore in modo intuitivo, utilizza le funzioni messe a disposizione dalla unit DateUtils di Delphi (aggiungila alla clausola uses e cercala nella Guida in linea).

La unit DateUtils fornisce procedure e funzioni, documentate nella Guida, per aggiungere e sottrarre giorni, mesi, anni, ore, minuti, secondi, millisecondi a valori data/ora, nonchè compiere le più disparate operazioni su questi valori.

Ciao!