请教我下面的读写注册表的语句，

请教我下面的读写注册表的语句，功能是上面所讲的功能，如何在程序里检测BUTTON单击了N次之后,就变成灰色不能再使用了,然后怎样在退出程序后,下次再打开,这个按钮如果已经变灰了,再打开时也是一样的我已经写一个键值在注册表里，但是读出的时候不能读出，而且我想读出之后，这个值加一，到了一定的数字后，程序不能再运行，请教我那里写错了。
procedure TForm1.Button2Click(Sender: TObject);
var
re:Tregistry; ／／写入注册表。
kname,Tecode,Tstr:string;
i:integer;
Beginre:=Tregistry.Create ;
re.RootKey:=hkey_local_machine;
kname:='Software\jsjb\Example';
if re.OpenKey(kname,true) then
Begin
Tecode:=re.ReadString('1');
Try
re.WriteString('1','i');
Re.CloseKey;
Finally
Re.Free;
end;
end;
end;procedure TForm1.Button3Click(Sender: TObject);
var
r:Tregistry; ／／读注册表语句
Sql,Tsql:string;
Begin
r:=Tregistry.Create ;
if r.OpenKey('1',true) then
Begin
Sql:=r.ReadString('1');
edit1.Text:=Sql;
// r.CloseKey;
// r.Free;
end;
end;