var okCommand:command;  
       nameField:integer;  
       userName:string;  
       telnomer:integer;
       nomer:string
        
        
   begin  
     { Создание формы на экране }    
     okCommand := createCommand('OK', CM_OK, 1);  
     showForm;  
     addCommand(okCommand);  
     nameField := formAddTextField('Введите ваше сообщение', '', 20, TF_ANY);  
   
telnomer := formAddTextField('Номер телефона', '', 20, TF_PHONENUMBER);  

     { ожидание, пока пользователь нажмёт кнопку OK }  
     while (getClickedCommand <> okCommand) do  
       delay(100);  
        userName := formGetText(nameField);  

     nomer:=  formGetText(telnomer);  

    
      
     
     if not smsStartSend('sms://nomer', userName) then halt;  
     
     while smsIsSending do // ждём, пока сообщение не будет отправлено  
       delay(100);  

     if not smsWasSuccessfull then halt; // проверяем, успешно ли было отправлено сообщение  

     showCanvas;      
     setColor(255, 0, 0);  
     drawText(userName, 5, 5);  
     drawText(nomer, 5, 50);
     repaint;  
     delay(2000);  
    
   end.