Idsmtp1.Host:=Edit5.text;
idsmtp1.Port:=25;
idsmtp1.Username:=edit6.text;
idsmtp1.Password:=edit7.text;
IdMessage1.From.Address := edit2.text;
IdMessage1.Recipients.Add.Address := memo2.text;
IdMessage1.Subject := edit3.text;
idmessage1.Body.Text:=memo3.Text;
idsmtp1.Connect;
idsmtp1.Send(idmessage1);