Update main.pas

Life 10.6
[Bug fix]