[serg aka lain]

Вот код... проверил на W7 »

Ради интереса проверил у себя (Win7 64), показывает пустое окно.
имхо, нужно доработать этот кусок кода

Код:

            if Version.Minor = 1 then // здесь проверяем, что не Vista, т.к. на Vista я не тестировал и не знаю результата...
              begin
                if IsWin64 then
                   RootKey := HKEY_LOCAL_MACHINE_64
                else
                RootKey := HKEY_LOCAL_MACHINE;