var h, m, s, ms: word; begin DecodeTime(now(), h, m, s, ms); caption := format('%d:%d:%d:%d', [h,m,s, ms]);