procedure TForm1.Button1Click(Sender: TObject);
var
Key	: HKey;
Buf	: array[0..1000] of char;
Err, index	: longint;
BufSize: Cardinal;
zz: string;
begin
BufSize := 1024;
index:=0;
Err:=RegOpenKey(HKEY_CURRENT_USER,
'Software\WinRAR SFX',Key);
while err=ERROR_SUCCESS do
begin
if strpas(Buf)<>'' then memo1.lines.add(strpas(Buf));
Err:=RegEnumValue(KEY, index, buf,BufSize, nil, nil, nil, nil);
inc(index);
end;
end;