如何将一个StringList中的内容写入注册表中(二进制),并能够读取出来。(100分)

如何将一个StringList中的内容写入注册表中(二进制),并能够读取出来。

怎么没有人！！！

TStringList.Text

我想以二进制写入用WriteBinaryData函数,怎样读取出来

ReadBinaryData
function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer): Integer;

我知道函数，代码如下
procedure TForm1.Button1Click(Sender: TObject);
var r:Tregistry;
S1 : TStrings;
M1:TMemoryStream;
begin
S1:=TStringList.Create ;
M1:=TMemoryStream.Create ;
S1.add('aaaaaaaaa');
S1.add('bbbbbbbbb');
S1.add('ddddddddd');
S1.SaveToStream(M1);
r:=Tregistry.Create;
r.RootKey :=Hkey_Current_User;
r.OpenKey('ABC',TRUE);
r.WriteBinaryData('test',M1,M1.Size);
r.Free ;
S1.Free ;
M1.Free ;
end;

我已成功地写入了注册表，但不知怎样从注册表中将刚才的三行文字aaaaa,bbbbb,cccc
读取到stringlist中来。
请高手指点！给出代码。

关于注册表二进制数据的读写我的主页上有源码可下载:http://aizb.6to23.com

多人接受答案了。