Masowe wysylanie poczty

[icewielki]

Witam
mam problem z wysylaniem poczty, tematow z tym jest wiele ale zaden nie rozwiazuje mojego problemu, mianowicie chce wysylac masowo poczte cos na styl spamu wiadomosc jedna za druga lecz po ok 6 wiadomosci mi pisze ze za duzo listow chce wyslac z tego konta czy z IP jakos tak, co mam napiszac aby poczekal az jedna wiadomosc sie wysle i zaczynal wysylac nastepna a nie jechal ze wszystkimi naraz

oto kawalek mojego kodu:
pozdrawiam i z gury dziekuje

    try

       with Idmessage1 do

              begin

                 Subject:='Wiadomosc: '+inttostr(numer);

                 if not fileexists(linia) then  Subject:='brak pliku '+inttostr(numer);

                 From.Text:=mail;

                 Recipients.EMailAddresses:=mail2;

                 Body.Text:='Szczegóły Wiadomosci:';

                 Body.Add(DateTimeToStr(Now));

                 if fileexists(linia) then tidattachment.Create(idmessage1.MessageParts,linia);

              end; 

                   idSMTP1.Send(idmessage1);

            finally

                inc(numer);

                idmessage1.Clear;

            end;

 

[voyteck]

może wsadź Timer ustaw na jakiś czas i w zdarzeniu timera zrob, by wysyłał kilka wiadomości. i powinien robić odstępy.

 

[icewielki]

Chyba nie zda egzaminu, mailem maja wysylane byc mp3 tak wiec jego wielkosc od tego zalezy maile beda wysylane przez roznych ludzi wiec rozne szybkosci internetu oraz wchodzacy w rachube czas wyslania poczty niestety timer jest tu bardzo nie na miejscu