Ország nevek listájának lekérdezése

procedure TForm1.FormCreate(Sender: TObject);
const
  s='\SOFTWARE\Microsoft\Windows\
      CurrentVersion\Telephony\Country List\';
var
  reg: TRegistry;
  list: TStringList;
  i: integer;
begin
  reg:=TRegistry.Create;
  list:=TStringList.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey(s, false);
  reg.GetKeyNames(list);
  reg.CloseKey;
  for i:=0 to list.Count-1 do begin
    reg.OpenKey(s+list[i], false);
    ListBox1.Items.Add(reg.ReadString('Name'));
    reg.CloseKey;
  end;
  reg.Free;
  list.Free;
end;