Como usar Repeat Until no delphi

Com esta instrução, o conteúdo contido na instrução será executado ao menos uma vez, a diferença do Repeat Until para o for do e o while do , é que o  Repeat Until testa no final, enquanto o outro testa no início.

procedure TForm1.Button1Click(Sender: TObject);

Var

 I : Integer;

begin

  I := 1;

  repeat

     ShowMessage(IntToStr(I));

    Inc(I);

  until (I = 7);

end;

---

Gostou do conteúdo? então clique aqui!