Условие в реестре ...

[KVANTOM]

Здраствуйте !
Пользуюсь следующим кодом

uses
Registry...
...
var
Registry: TRegistry;
hg:string;
gh:integer;
begin
Registry :=TRegistry.Create;
Registry.RootKey := hkey_local_machine;

Registry.ReadString('id');
for gh:=0 to length(Cn) do
begin
hg:=hg+con[gh]+con1[gh];
end;
if Edit1.Text=hg   then
begin
Registry.OpenKey('software\data',true);
Registry.WriteString('id',Encrypt(hg));
     end
else
showmessage('Ne rabotaet ');
Registry.CloseKey;
Registry.Free;

Значения совпадает с hg. Но почему то, не сохраняет значение .
За ответы, заранее спасибо !

[_Engine_]

1. переименуй переменную Registry
2. Уверен, что OpenKey происходит? (это функция)

[KVANTOM]

Нашёл трабл. Нужно было ввести доп. переменную в цикл for gh:=0 , и
length(Cn)+1.