!!!Duda sobre cálculos de fechas !!!

[*Caro*]

Hola, creo que lo que quiere es sumarle 102 dias a la fecha que tiene almacenada y en base a la fecha actual ver cuantos días han pasado y cuantos le faltan para llegar a esa fecha, creo que es eso, pero tampoco entiendo bien su pregunta.

Código Delphi [-]
var
 Fecha, FechaS: TDateTime;
 DiasP, DiasF : Integer;
begin
 Fecha := DataSet.FieldByName('fecha').AsDateTime; 
 FechaS :=IncDay(Fecha, 102);
 
 DiasP := DaysBetween(Now, Fecha);
 DiasF := DaysBetween(FechaS, Now); 
 
 Label.Caption := 'Han pasado :'+IntToStr(DiasP)+' días faltan '+IntToStr(DiasF)+' días'+;

Saluditos