Update main.pas

Life 9.1
oldStage is filled by newStage now.