trim(UpperCase(edit1.Text))