WHILE

     Kao i Repeat petlja i While se koristi ako broj ponavljanja nije apsolutan. Međutim, razlika je u tome što se ponavljanje vrši dok je uslov ispunjen. Primjer, prozor ( Form1 ) povećava širinu dok god je ona manja od 600.

  while Form1.Width < 600 do
    Form1.Width := Form1.Widht + 1;

     Ovdje se radnja nece izvršiti nijednom ukoliko je širina već veća od 600.

    Ukoliko se vrši više radnji koristi se, kao i kod for petlje, begin..end blok.