repeat 中的 continue

  repeat
    a := -1;
    if A > 0 then
      ShowMessage('')
    else
    begin
      Caption := '';
      Continue;//不是立即 向上 返回 执行，要先向下 检查循环条件 是否还 满足？
    end;
  until A < 0;