var dtOnlineDateTime, dt: TDateTime;
begin
  dt := StrToDateTime('2017/6/28 16:41:30');

    dtOnlineDateTime := now - dt;
//    Memo1.Lines.Add( '在线时长：' + IntToStr(Trunc(dtOnlineDateTime)) + '天'
//      + FormatDatetime('H"小时"m"分"s"秒"', Frac(dtOnlineDateTime)) );
    Memo1.Lines.Add( '在线时长：' + IntToStr(Trunc(dtOnlineDateTime)) + '天'
      + FormatDatetime('H":"m":"s', Frac(dtOnlineDateTime)) );

  Memo1.Lines.Add(DateTimeToStr(now));
end;