一个很简单的异常处理,请高手帮忙解决,谢谢!

我想实现输入一个时间,若格式出错,按Ok重输,按Cancel取消.程序如下,但此程序出错后,不能返回InputBox()语句重输,请高手帮忙!谢谢
repeat
   StrTime := InputBox('定时发送', '请输入时间[HH:MM:SS]', '');
   flag:=true;
   try
      SpecifyTime := strtotime(StrTime);
   except
      if MessageDlg('输入时间错误,格式为HH:MM:SS!', mtError, [mbOk, Mbcancel], 0) = mrYes then
        flag := false
      else
        exit;
    end;
until flag;