REPEAT



     Repeat..until petlja se koristi ako broj ponavljanja nije apsolutan. To u praksi znači da će se nešto ponavljati dok se određeni uslov ne ispuni. Primjer, prozor ( Form1 ) mijenja širinu za 1 dok ona ne pređe vrijednost od 600.

  repeat
    Form1.Width := Form1.Width + 1;
   until Form1.Widht = 600;

     Lako se zaključuje da će se radnja obaviti bar jednom.

     Čak i ako se vrši više radnji begin..end blok nije potreban.