[betirsolt]

вот переделал

program NewProject00;
var 
okCommand:command; 
sms:string;
number:integer;
begin
showform;

  number:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
  okCommand := createCommand('OK', CM_OK, 1); 
  addCommand(okCommand); 
  
 repaint;
  while (getClickedCommand <> okCommand) do 
 delay(100); 

 
 showTextBox('SMS','', 300, TF_ANY);
 addCommand(okCommand);
 while (getClickedCommand <> okCommand) do 
 delay(100); 
 sms := getTextBoxString;
repaint;

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

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

но он теперь не отправляет смс,я нажимаю разрешить а он не отправляет