if (strtoint(edit1.Text) >=1) and (strtoint(edit1.Text )<=30) thenbeginedit2.Text :='正常';endelsebeginedit2.Text :='' ;end;