Циклы

[}{oт@бь)ч]

Здраствуйте мне нужно чтобы я вписывал например 10почтовых ящиков и паролей от них
то есть например так
mas@mail.ru:12345
koll@mail.ru:53454
lopt@mail.ru:675756
hghg@mail.ru:54646
Вот таким образом!
И с этих яшиков отправлялось письмо на один яшик!

idSMTP1.Username:= edit1.Text; // Аккаунт твой
idSMTP1.Password:= edit2.Text;  // Твой пароль

Тоесть вот сюда
Вот пример

Но как это зделать я незнаю!
Именно мне нужно чтобы я вписывал яшики как показано на скрине и с них отправлялось письмо на 1 указанный яшик!
Заранее благодарен!

[goblinyara]

хех.... тебе ж Квэнди уже сказал просто в том примере, что я сделал, цикл открой сразу же, и при каждом проходе цикла меняй всё,что тебе надо
З.Ы. пароли и аккаунты лучше тоже в Memo вводить, если они на разных серверах разные

[}{oт@бь)ч]

Да понимаешь я новичок и с циклами плохо знаком точнее сказать вообше незнаком!
Вот тоже самое как например зделать чтобы програма определяла
mail@mail.ru:5345345
Что
mail@mail.ru это почтовый яшик
а
5345345 это пароль от него!
А по твоему ответу я понял следушее

idSMTP1.Host :='smtp.mail.ru'; 
idSMTP1.Port:=25;
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:= Memo1.lines[i];
idSMTP1.Password:= Memo1.lines[i];
IdMessage1.Recipients.EMailAddresses := edit5.text;
IdMessage1.From.Text := Memo1.lines[i];;
IdMessage1.Subject := 'rere';
IdMessage1.Body.Text := 'rere';
try
try
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);
//отпралвеено
except on E:Exception do 
begin
form1.Caption:=E.Message;
end;
end;
finally
idSMTP1.Disconnect;
end;

Толь вот сам непойму как будет програма опредялять пароль от яшика

[goblinyara]

хммм.... если в одной строке делать, то нужно эту строку разбирать на куски, что-то типа:

s:=Memo1.Lines[i];
for i:=1 to Length(s) do
if s[i]=':' then pos_of_delimiter:=i;
UserName:=Copy(s,1,pos_of_delimiter-1);
Delete(s,1,pos_of_delimiter);
idSMTP1.Username:= UserName;
idSMTP1.Password:= s;

З.Ы. А насчёт циклов - учи сейчас же, потому что без них и без условных операторов в программировании делать нечего(ну кроме как разрабатывать линейные программы, неинтерактивные, а кому это сейчас надо???)

[}{oт@бь)ч]

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Memo1.Lines[i];
for i:=1 to Length(s) do
if s[i]=':' then pos_of_delimiter:=i;
UserName:=Copy(s,1,pos_of_delimiter-1);
Delete(s,1,pos_of_delimiter);
idSMTP1.Username:= UserName;
idSMTP1.Password:= s;

idSMTP1.Host :='smtp.mail.ru';
idSMTP1.Port:=25; // Порт
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:= Memo1.lines[i]; 
idSMTP1.Password:= Memo1.lines[i];
IdMessage1.Recipients.EMailAddresses := edit1.Text;
IdMessage1.From.Text := Memo1.lines[i];
IdMessage1.Subject := edit2.Text;
IdMessage1.Body.Text := edit3.text;
try
try
idSMTP1.Connect; 
idSMTP1.Send(IdMessage1);

except on E:Exception do
begin
form1.Caption:=E.Message;
end;
end;
finally
idSMTP1.Disconnect;
end;
end;

end.

Вот что из этого получилося
Сразу ошибку выдает!
Если можешь покажи в коде моем где ставить а неотдельно!