#pas
//   if _prop_Device = -1 then              
//     d := Readinteger(_Data, _data_Device, 0)
//   else