Descobrindo se um objeto tem uma determinada propriedade

Uses Typinfo
if GetPropInfo(DataSet, 'TableName') <> nil then
ShowMessage('Objeto TTable');