почищена TMain.bCalcClick, заполняла ouir.dmon