[angvelem]

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if DTP.Date = Date then
    Exit;

  Label2.Caption := Format('Дней прожито: %d', [DaysBetween(DTP.Date, Date)]);
  Label3.Caption := Format('Часов прожито: %d', [HoursBetween(DTP.Date, Now)]);
end;

Эх опоздал.