Bir şart gercekleştiği zaman calışması gereken program bloklarında kullanılır.Kod yapısı icerinde program calışırken donguye hic girilmeden de program devam edebilir.Genel yapısı aşağıdaki gibidir.

Kod:
While şart do Begin Komutlar ; end ;
Ornek :

Kod:
var i : integer ; Begin i := 0 ; while i < 10 do // i 10 dan kucuk olduğunda donguye girecektir Begin Label1.Caption := inttostr ( i ) ; i := i + 1 ; // en son i =9 değerini aldığında donguden cıkılacak end ;

__________________