Update main.pas

Life 10.9
[Bug fix]