[ecfisa]

Hola Darkseratul.

Sigo sin entenderte muy bién, pero a ver si lo que andas buscando es algo así...

Código Delphi [-]
begin
  ShowMessage(Format('%s %d %s %d %s',
              ['Transcurrieron: ',
               DaysBetween(Now, DateTimePicker1.Date),
               ' días. Restan: ',
               102-DaysBetween(Now, DateTimePicker1.Date),
               ' días']));
end;

Saludos.