Первые шаги в WPF,но вроде работает   //On Off Exp command .exp on .exp off begin if not _gFromServ then if StrCmp(_gBuff, HStr('19 00 38 2E 00 65 00 78 00 70 00 20 00 6F 00 6600 66 00 00 00 00 00 00 00')) then _gOutBuff := HStr('25 00 21 75 00 73 00 65 00 72 00 5F 00 6D 00 6500 6E 00 75 00 20 00 6E 00 6F 00 65 00 20 00 6F00 66 00 00 00'); end; begin if not _gFromServ then if StrCmp(_gBuff, HStr('1700382E0065007800700020006F006E00000000000000')) then _gOutBuff := HStr('25 0