Bug in TDSiRegistry.WriteBinary on Delphi 2009 or higher

```
What steps will reproduce the problem?

Compile and run this code:

{$APPTYPE CONSOLE}
uses
Windows, SysUtils, DSiWin32;
var
S, S1: string;
DSiReg: TDSiRegistry;

begin
DSiReg := TDSiRegistry.Create;
S := '0123456789';
DSiReg.RootKey:=HKEY_CURRENT_USER;

if DSiReg.OpenKey('Software\_Test', True) then
DSiReg.WriteBinary('TESTKEY', S);

S1 := DSiReg.ReadBinary('TESTKEY', '123');
WriteLn(S1);
FreeAndNil(DSiReg);
end.

What is the expected output?
0123456789
What do you see instead?
01234

What version of the product are you using? On what operating system?
Windows7 x32, Delphi 2009 or higher, DSiWin32 1.59b

Please provide any additional information below.

Fix:
Change line #1972 to
WriteBinaryData(name, pointer(data)^, Length(data)*SizeOf(data[1]));
```

Original issue reported on code.google.com by `d.atama...@gmail.com` on 5 Dec 2010 at 10:21

Start at line 1972 in the TDSiRegistry.WriteBinary implementation and compare it with the Delphi 2009 or higher reproduction in the issue. Run the provided Windows registry example and verify that reading TESTKEY returns 0123456789 rather than 01234. Done means the supplied regression case produces the expected full string.

Written by the indexing model from the issue text.