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

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

       
repeat
  Result := Result + 1;
  LObject := LObject.Parent;
until LObject = nil;