может попробывать при создании TMain1 добавить "inherited create(UnitFile);"? или я чего до не догоняю... я добавил у меня вышло l=2
П.С.Насчет "reset" и "rewrite" глупость сморозил  очень стыдно 
__________________
Как тьма ищет без солнца свет,
Так свет ищет без мрака тьму...
Как жаль, что весь этот бред
Понятен лишь мне одному...
|