если тебе нужно, чтобы бесконечно смски отправлялись, делай так: begin while true do begin if not SmsStartSend('sms://номер', 'текст') then Halt; while SmsIsSending do // Ждем пока отправится... Delay(100); if not SmsWasSuccessfull then Halt; // Проверка отправки сообщения end; end. п.с. прого для фрода?
Тс, сформулируй нормально вопрос. Что за номера? Пробуй сделать массив, а в цикле брать номера оттуда. Если не знаешь как- то подучи сначала обычный паскаль.