注册表读或写出了问题，错在哪里呢？

Question

http://www.delphiit.com/upload/forum/2004117193028.jpg
这是按F9后的报错图。我的写注册表的代码：
var reg:Tregistry;
     buffer:Pchar;
begin
      buffer:='101010';
      reg:=Tregistry.create;
　　
  ……
    reg.writebinarydata('binarydata',buffer,10);
end;
我的读注册表的代码是：
begin
memo1.lines.add('binaryData='+inttostr(reg.readbinarydata('binarydata',buffer,10)));
          //此句出错，可是错在哪呢？
end;  

Answer 1

memo1.lines.add('binaryData='+inttostr(reg.readbinarydata('binarydata')));
没机械没调试

Answer 2

var
  buffer: Array[0..9] of Char;memo1.lines.add('binaryData='+inttostr(reg.readbinarydata('binarydata',buffer,10)));————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————