1 while Выражение do
2  //Оператор

Оператор выполняется до тех пор, пока значение Выражения истинно. Выражение должно быть логического типа. Если при входе в цикл Выражение не истинно, то тело цикла не будет выполнено ни одного раза.

01while LList.Count > 0 do
02  LList.GetItem(0).Destroy;
03
04while True do
05begin
06  LValue := LValue.NextValue;
07  if LValue.Value > 10 then
08  begin
09    Result := LValue.Value;
10    exit;
11  end;
12end;