edit1.PasswordChar := '*';
yourPasswd := edit1.Text;