帮忙看个问题！

Question

try
    if ysfs.Text='汽车' then
      ct:='1'
    else
      ct:='0';
    self.rkdtxSDS.Active:=false;
    self.rkdtxSDS.DataSet.Params.ParamByName('rkdh').AsString:=rkdh.Text;
    self.rkdtxSDS.DataSet.Params.ParamByName('hzdm').AsString:=hzdm.Text;
    self.rkdtxSDS.DataSet.Params.ParamByName('rq').AsString:=formatdatetime('yyyy-mm-dd hh:mm:ss',now());
    self.rkdtxSDS.DataSet.Params.ParamByName('ysfs').AsString:=ct;
    self.rkdtxSDS.DataSet.Params.ParamByName('ccfs').AsString:=ccfs.Text;
    self.rkdtxSDS.DataSet.Params.ParamByName('bgy').AsString:=bgy.Text;
    self.rkdtxSDS.Execute;
    except
      showmessage('有重复记录请重新输入！');
      self.rkdh.SetFocus;
    end;
    if ct='1' then
        fcldj.ShowModal;
    self.rkdh.Text:='';
    self.rq.Text:=formatdatetime('yyyy-mm-dd hh:mm:ss',now());
    self.ccfs.text:='';
    self.bgy.Text:='';
如何让程序遇到错误后,点击showmessage的确定按钮就停住不往下运行了！

Answer 1

except
      showmessage('有重复记录请重新输入！');
      self.rkdh.SetFocus;
      exit
    end;