Поиск в реестре :(

[CrazyProgramer]

Товарисчи, помогите пожалуйста мне с одной проблемкой, на Delphi надо найти опреденный ключ в реестре по имени параметра
Дело обстоит так -
Вот тут "HKEY_LOCAL_MACHINE\SOFTWARE\Classe s\CLSID" у меня находяться много ключей с разными именами типо
"{5591379C-B467-4BCA-B647-A438712504B0}"
Так вот, заранее мне не известно как точно наз-ся этот CLSID нужный (он может меняться на разных машинах), но в нем точно содержиться подключ "InprocServer32" и и меет 1 строковой параметр, с такимже именем (тоесть "InprocServer32") в котором записано нечто вроде:
"B&HBVn-}f(ZXfeAR6.jiTranslationFiles_1031> B%Bz691Gx8Q{jBqDGB(6" таких цифр, так вот по этом цифрам мне и нужно найти этот CLSID
Как это организовать даже непредставляю, надеюсь на вашу помощь!
Ниже скрин приложил для наглядности

[FaTaL]

Вот как вариант, если конечно я Вас правильно понял:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
s   : TStringList;
i   : Integer;
begin
  s:=TStringList.Create;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Classes\CLSID', false);
  reg.GetKeyNames(s);
  reg.CloseKey;

  for i:=0 to s.Count-1 do
    begin
        reg.OpenKey('SOFTWARE\Classes\CLSID\'+s[i]+'\InprocServer32', false);
        If reg.ValueExists('InprocServer32') then
          ListBox1.Items.Add(s[i]); // Добавляем с ListBox1 названия ключей
        reg.CloseKey;
    end;
  reg.Free;
end;

[CrazyProgramer]

FaTaL, спасибо работает, немного подправил насчет поиска, гуд стало