действительно while true do begin... А я как идиот сижу да генераторы словарей переделываю )