Дублирование ключей в реестре Опции

[Unconnected]

Привет всем.
Проблема у меня такая, нужно параметру Shell ключа HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon дописать кое-что. С реализацией проблем нет, дописываю вот так:

procedure ChangeReg;
var Reg: Tregistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon ',True) then
   begin
      Reg.WriteString('Shell','Explorer.exe, *******');
      Reg.CloseKey;
   end;
  finally
    Reg.Free;
  end;
end;

Проблема в том, что в реестре рядом располагаются два ключа с именем Winlogon, только один имеет подключи, а другой нет, и оба этих Winlogon'а имеют параметр Shell (Точнее, у одного SHELL, у другого Shell, но это неважно в принципе). Мне нужно изменить параметр первого ключа Winlogon, который с подключами. А вышеприведённый код меняет параметр второго ключа...

Добавлено через 6 мин.
***, как назло, только создал тему и сразу увидел ошибку, два этих ключа различались пробелом на конце...
2админы: тему можно delete:)