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

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

Пример
1repeat
2  Result := Result + 1;
3  LObject := LObject.Parent;
4until LObject = nil;