Format

strTimeZone := Format('%s ~ %s',[formatdatetime('yyyy-mm-dd',dtpStartTime.DateTime),
formatdatetime('yyyy-mm-dd',dtpEndTime.DateTime)]);

strRecordMsg := Format('晚饭%d放大',[FResult.Count]);