[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: integer;
begin
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   Reg.OpenKey( '\SOFTWARE\Test', true );
   Reg.WriteString( 'string', 'string' );
   Reg.WriteInteger( 'integer', SizeOf( Integer ) );
   Reg.WriteBool( 'bool', true );
   buf := 1000;
   Reg.WriteBinaryData( 'binary', buf, SizeOf( buf ) );
   Reg.CloseKey;
   Reg.Free;
end;