, hvordan til at fortælle, hvilken form en ejendom er., var,    propinfo: ppropinfo;,    info: ptypeinfo; begynder,    propinfo: = getpropinfo (self, 'test),   , hvis propinfo = intet så udpassage,   , hvis propinfo proptype). ^ = typeinfo (tdatetime),      showmessage ('hello);,;,,,