[Yurk@]

а не проще так?:

Код:

uses Registry;
var 
R :TRegistry;

begin 
  try
    R:=TRegistry.Create;
    R.RootKey:=HKEY_LOCAL_MACHINE;
    R.OpenKey('путь в реестре',True);
    R.WriteString('имя параметра','значение');
    R.CloseKey;
  Except R.Free;
  end;
end;