Для ТРМ138р
procedure TMainForm.ON1;
var value:byte;
begin
value:=1;
if WriteByte(8,0,'dr.dG',value,1)=1 then begin
CheckBox1.Caption:='Нагрев включен';
PowerOn:=false; end else begin
CheckBox1.Caption:='Error On';
......