Отправка письма

[beygul]

Создал прогу по видео уроку по отправке письма. Всё работает. НО! Когда я нажимаю на кнопку отправить быстро и много раз - выходит окно с ошибкой. Как сделать так, чтобы было сколько раз нажмёшь на кнопку - столько писем и отправилось бы... И ещё! Я отправляю текст. А как отправить определённые файлы с локального диска? Код моей проги таков:

procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:='hack.haker';
idsmtp1.Password:='12345';
idmessage1.Body.Text:=memo1.Text;
idmessage1.From.Text:='hack.haker@yandex.ru';
idmessage1.Recipients.EMailAddresses:='beygul1993@mail.ru';
idMessage1.Subject:='Ни о чём';

idSMTP1.Connect();
if idSMTP1.Connected=true then
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect
end;

From Stilet: Попрошу код оформлять по кнопке # а не цитатой.

[Gambler]

На сколько много? Вообще то на сайтах ограничения стоят. Что бы не спамили. На мейле вроде 25 писем ограничение.

[beygul]

да буквально, 5 раз быстро нажимаю - выдаёт ошибку(((

[Hacker19_90]

А что за ошибка?

[coNsept]

Программа видимо не успевает подключиться с smpt серверу, а вы её добиваете повторным нажатием. Попробуйте messagebox выводить по завершению выполнения функции отправки, и только после этого пробуйте посылать повторно. (и дайте знать что из этого выйдет)

[galblch]

А я бы ещё сделал кнопку неактивной, пока запрос не будет выполнен...