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

п.с. прого для фрода?