registry binary erstennen(prob mit dynamic array)

[gandime]

hi,
ich möchte einen binary eintrag inner reg machen und zwar is da das prob die dynamic array

ohne gehts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  binary_buf:array[0..1] of char;
begin
  treg:=tregistry.create;
  TReg.RootKey:=HKEY_LOCAL_MACHINE;
  TReg.OpenKey('SOFTWARE\',False);
  if TReg.ValueExists('SOFTWARE\') = False then
  begin
    binary_buf[0]:=char(66);
    binary_buf[1]:=char(67);
    treg.WriteBinaryData('ka',binary_buf,sizeof(binary_buf));
    edit1.text:=binary_buf[0]+binary_buf[1];
  end;
end;

//--> ergebnis inner reg: 'BC'
//--> ergebnis im edit1.text: 'BC'

mit dynamic array nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  binary_buf:array of char;
begin
  treg:=tregistry.create;
  TReg.RootKey:=HKEY_LOCAL_MACHINE;
  TReg.OpenKey('SOFTWARE\',False);
  if TReg.ValueExists('SOFTWARE\') = False then
  begin
    SetLength(binary_buf,1);
    binary_buf[0]:=char(66);
    binary_buf[1]:=char(67);
    treg.WriteBinaryData('ka',binary_buf,sizeof(binary_buf));
    edit1.text:=binary_buf[0]+binary_buf[1];
  end;
end;

//--> ergebnis inner reg: '   ˜P¦.'
//--> ergebnis im edit1.text: 'BC'

tjoa jetzt muss ich blos noch wissen wo das prob is

oder kann man iwie anders binary inner reg speichern?

mfg gandime