[Samhein]

Только скачал MIDletPascal, кое что попробовал сделать.

program f;
 var okCommand:command; 
   nameField:integer; 
  Fi : integer;
  nomer : integer;
  
s : string; 
 begin 
   okCommand := createCommand('OK', CM_OK, 1); 
  showForm; 
  addCommand(okCommand); 
  nameField := formAddTextField('Введите текст SMS', '', 100, TF_ANY); 
Fi := formAddTextField('Введите номер телефона','',20, TF_PHONENUMBER);
  while (getClickedCommand <> okCommand) do 
   delay(100); 
  s := formGetText(nameField); 
nomer := formGetValue(Fi);
  showCanvas;   
  setColor(255, 0, 0); 
  repaint; 
  if not smsStartSend('sms://' + nomer, s) then halt;
while smsIsSending do // ждём, пока сообщение не будет отправлено 
 delay(100); 
if not smsWasSuccessfull then begin
drawText('no', 5, 5); 
  repaint; 
  delay(2000); 
  end;
 end.

Вроде программа должна отправлять SMS, но ничего не получается.
Помогите..

бэк-слэш ставится перед закрывающи тегом