la solución de caro es la como yo quería es genial y muchas gracias a todos los demás que siempre me ayudan a un que no me se explicar
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'+;
Muchas gracias a todos