procedure TForm1.Button1Click(Sender: TObject);
var
 reg : TRegistry; 
 ts : TStrings; 
 i : integer; 
begin
 Memo1.Clear;
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_USER;
 reg.LazyWrite := false; 
 reg.OpenKey( 
 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 
 false); 
 ts := TStringList.Create; 
 reg.GetValueNames(ts); 
 for i := 0 to ts.Count -1 do begin 
 Memo1.Lines.Add(ts.Strings[i] +
 ' = ' + 
 reg.ReadString(ts.Strings[i])); 
 end; 
 ts.Free; 
 reg.CloseKey;
 reg.free; 
end;