请帮忙改一下代码

獨傢汜忆

请问这段代码怎么改成如果gc_id=10之后就提示已经超限，确定后直接退出？
不要在到了gc_id=10后让其注册？

procedure TForm1.FormCreate(Sender: TObject);
    var
    re_id:integer;
    registerTemp : TRegistry;
    inputstr,get_id:string;
    dy,clickedok:boolean;
begin
  dy:=false;
  registerTemp := TRegistry.Create;
  with registerTemp do
    begin
    RootKey:=HKEY_LOCAL_MACHINE
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark',True) then

    begin
     if valueexists('gc_id') then
      begin
              re_id:=readinteger('gc_id');
              if (re_id<>0) and (re_id<>10) then

          begin
            re_id:=re_id+1;
            Writeintger('gc_id',re_id);
          end;
          if re_id=10 then
          dy:=True;
      end
     else
         Writeinteger('gc_id',9);
    if dy then
      begin
        Close;

        clickedok:=InputQuery('您使用的是注册软件,请输入注册码：',' ',inputstr);
        if clickedok then
        begin
            get_id:=intostr(57098758*2);
            if get_id=inputstr then
             begin
                Writeinteger('gc_id',0);
                CloseKey;
                Free;
             end
            else
            begin
                application.messagebox('注册码错误!请与作者联系!','警告框',mb_ok);
                CloseKey;
                Free;
                application.terminate;
            end;
        end
        else
        begin
            application.messagebox('请与管理员联系，使用注册软件!','警告框',mb_ok);
            CloseKey;
            Free;
            application.terminate;
        end;
      end;
     end;
   end;

罂粟

都没鱼币悬赏，不告诉你:$

罂粟

大于10，直接提示退出就好了嘛……少于10时，每次打开提示注册