[4kusNick]

Может, так?

Код:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
const
  sKey = '\Software\Microsoft\Windows\CurrentVersion\Explorer \ComDlg32\OpenSaveMRU';
var
  rReg: TRegistry;
  ki: TRegKeyInfo;
begin
  rReg := TRegistry.Create;
  with rReg do
  begin
   RootKey := HKEY_LOCAL_MACHINE;
   if KeyExists(sKey) then
   begin
     OpenKey(sKey, false);
     GetKeyInfo(ki);
     CloseKey;
     lbSubkeys.Caption := IntToStr(ki.NumSubKeys);
     lbValues.Caption := IntToStr(ki.NumValues);
   end;
  end;
   rReg.Free;
end;

А вообще, процесс обучения на том и основан, чтобы человек сам пробовал, экспериментировал и методом проб и ошибок учился новым вещам. Ибо, если тебе всегда будут давать готовые куски кодов, далеко в программерском деле ты не уедешь