Мельница данных   (17.11.2017)
Цикл с предусловием
while Выражение do
  //Оператор

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

       
while LList.Count > 0 do
  LList.GetItem(0).Destroy;

while True do
begin
  LValue := LValue.NextValue;
  if LValue.Value > 10 then
  begin
    Result := LValue.Value;
    exit;
  end;
end;