lergn;.Cells[1,5]:=floattostr(Round(astmn/(quantity/100)))+«%»;.Cells[2,5]:=floattostr(Round(rinon/(quantity/100)))+«%»;.Cells[3,5]:=floattostr(Round(bronxn/(quantity/100)))+«%»;.Cells[4,5]:=floattostr(Round(traxn/(quantity/100)))+«%»;.Cells[5,5]:=floattostr(Round(allergn/(quantity/100)))+«%»;:;TForm1.Edit22KeyPress(Sender: TObject; var Key: Char); Key of # 8, «1» .. «3» :; Key:=Chr (0);;;.
