procedure WriteIt;
  var buf: array[0..7] of byte;
begin
  buf[0] := $9b;
  buf[1] := $25;
  buf[2] := $9e;
  buf[3] := $df;
  buf[4] := $ea;
  buf[5] := $90;
  buf[6] := $88;
  buf[7] := $c8;
  Reg.WriteBinaryData('Blub',@buf,8)
end;