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