function smsIsSending: boolean;  

 'true',   SMS     'false'   . 




function smsStartSend(destination: string; message:string): boolean;  

     SMS .   'true',       SMS    SMS        .  'destination'   : sms://< > 

   J2ME    . MIDletPascal     Wireless Messaging API  Siemens API. 

  ,    : 

  begin 
    if not smsStartSend('sms://+5550000', 'Hello!') then halt; 
   
    while smsIsSending do // ,      
      delay(100); 

    if not smsWasSuccessfull then halt; // ,      
  end. 






function smsWasSuccessfull: boolean;  

 'true'      .   'false'   : 
       SMS   J2ME
     
         