Getting through a list that never ends, from a… • Delphi