[betirsolt]

всем привет,вот пытаюсь написать прогу типа как стандартная для отправки смс с возможностью указать номер и текс смс

program NewProject00;
var 
okCommand:command; 
sms:string;
number:string;
begin
showTextBox('Кому','',12, TF_PHONENUMBER );
  okCommand := createCommand('OK', CM_OK, 1); 
  addCommand(okCommand); 
  repaint;
  while (getClickedCommand <> okCommand) do 
 delay(100); 
 number := getTextBoxString;
 showTextBox('SMS','', 300, TF_ANY);
 addCommand(okCommand);
 while (getClickedCommand <> okCommand) do 
 delay(100); 
 sms := getTextBoxString;
repaint;

if not smsStartSend('sms://number', sms) then halt; 
delay(2000);   
    while smsIsSending do 
      delay(10000); 
 if not smsWasSuccessfull then  
    end.

вот что у меня получилось,но при этом смс не отправляется,чтоб работало мне приходиться указывать номер еще при разрабтке

if not smsStartSend('sms://89281111111', sms) then halt;

тогда все работает,но мне нужно чтоб пользователь сам мог указывать кому отправлять,я в этом новичок и это мой первый проект в MidletPascal,подскажите как надо сделать правильно?