idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=Edit1.text;
idsmtp1.Password:=Edit4.text;
idmessage1.Body.text:=memo1.Text;
idmessage1.from.Text:=Edit5.Text;
idmessage1.Recipients.EMailAddresses:=edit3.Text;
idmessage1.Subject:=Edit2.text;
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;