Сразу скажу что программа не для спама, просто я староста и надо постоянно своих студентов оповещать о изменении в расписании и много других вопросов))
я нашел пример программы, немного дополнил вот
работает просто через smtp сервер отправляет на mail шлюз опсоса (оператора сотовой связи)и он в сою очередь перенаправляет на тел.
пример сделал тока вот у меня возникает вопрос:
как сделать именно программу чтоб она отсылала не каждому в отдельности письмо (.т.к. это долго, потомучто сервер smtp не дает часто  отправлять, защита от спама? тока через некоторое время)
а сразу всему списку контактов.
тоесть идея есть но реализовать не хватает опыту на Delphi/
идея такова:
 1.ставим таймер на 20 сек и он берет из ашего списка контактов первого в списке отправляет то что находится допустим в мемо, ждет 20 сек и отправляет второму в списке, только дело в том что ненаю как это реализовать программно.
2. ах да чуть не забыл, на данный момент приходят смс тока на латиннице, а как сделать в кириллице, слышал что надо в utf-8 вроде как? может кто  подскажет? новичку?

исходник в приложении

Присоединённый файл ( Кол-во скачиваний: 41 )
 sms_send.rar 11,95 Kb

for a:=0 to memo1.lines.count do
begin
sleep(20000);//20 сеек
showmessage(memo1.Lines[a]);//
end;
 end;

Может быть вот так?