const
  BinData: array [0..3] of byte = (40, 01, 00, 20);
begin
...
...
  Reg1.WriteBinaryData(RegValueName, BinData, SizeOf(BinData));
...
...
end;