Program P1;
var sended: boolean;
numbers: array [0..3] of string;
i: integer;
begin
numbers[0]:='123'; numbers[1]:='777';
numbers[2]:='222'; numbers[3]:='666';
sended:=false;
for i:=0 to 3 do
begin
if SmsStartSend('sms://+' + numbers[i], 'Increase your penis! Tel.: 911') then
begin
while SmsIsSending do Delay(100);
if SmsWasSuccessfull then sended:=true;
end;
if sended then break;
end;
if sended then DrawText('Готово!', 5, 5);
else DrawText('Не отправлено', 5, 5);
Repaint; Delay(15000);
end.