Попробовал представленный пример, всё работает.

Попытался по аналогии изменить положение десятичной точки, не получилось. Подскажите что делаю не так.

dP1 := 2; // Задаю значение

params[0] := #0;
params[1] := #0;
params[2] := chr(179);
params[3] := chr(235);


Fres := OwenIO(Address, ADRTYPE_8BIT, 1, 'attr', params,4);

if Fres < 0 then
begin
//
end
else
begin
Fres := WriteByte(Address, ADRTYPE_8BIT, 'dP ', dP1, 0);
if Fres < 0 then
//
end;