Estrutura de Repetição com Teste Lógico no Fim do Looping "repeat... until..."

  A instrução repeat... until... é semelhante a instrução while... do..., mas nesse caso o bloco de comandos é executado pelo menos uma vez, pois o teste é feito no final da instrução, e continuará a ser executado até que a condição no subcomando until... atinja o valor verdadeiro.

  Sintaxe:
  repeat {bloco de comandos} until condição;

  begin
   { ... comandos iniciais ... }
   repeat
    { ... bloco de comandos ... }
   until numero > 10
   { ... comandos finais ... }
  end;

  Utilizando o projeto anterior, altere apenas o código existente no evento OnClick do componente BtnContar:

  O bloco de comandos ficará sendo repetido até x ser maior que 10, quando essa condição for atingida a estrutura de repetição será abandonada, desta maneira a ultima mensagem mostrada pela linha 08 será "O valor atual de x é 11", em seguida a linha 10 mostrará a mensagem "Valor final de x é 11".

  Uma peculiaridade dessa instrução é a inexistência das palavras reservadas begin e end para delimitar o bloco de comandos a ser repetido, isso é feito pelas palavras reservadas da própria instrução de repetição(repeat e until).