1:
2:
3:
4:
5:

  SmtpServerName :=  e_smtp_servername.text;
  SmtpServerPort := StrToInt(e_serverport.Text);
  SmtpServerUser := e_SmtpServerUser.Text;
  SmtpServerPassword:= e_SmtpServerPassword.Text;
  UserEmail := e_UserEmail.Text;					

1:
2:
3:
4:
5:

 { e_smtp_servername.text := SmtpServerName;
  e_serverport.Text := IntToStr(SmtpServerPort);
  e_SmtpServerUser.Text := SmtpServerUser;
  e_SmtpServerPassword.Text := SmtpServerPassword;
  e_UserEmail.Text := UserEmail;}