procedure sending;
var
itemid : integer;
cmdQuit, cmdNext : command;
name : string;
begin
  ShowForm;
  itemId := FormAddTextField('Geben sie die Empfängernummer ein:', '', 20, TF_PHONENUMBER);
  cmdNext := CreateCommand('Weiter',CM_OK,1);
  AddCommand(cmdNext);
  repeat until GetClickedCommand = cmdNext;
  name := FormGetText(itemId);
  if sms.send('sms://'+ name,'Hallo Welt!') = 0 then
    debug('error sending');
  else
    begin
      Showcanvas;
      DrawText('SMS wurde gesendet',0,0);
      Repaint;
      delay(5000);
    end;
end;
 
begin
  showMenu('Hauptmenü:', CH_IMPLICIT);
  einstellungen := menuAppendString('Einstellungen');
  programmierung := menuAppendString('Programmierung');
  info := menuAppendString('Info');
  
  auswahl := CreateCommand('Auswahl', CM_OK, 1);
  AddCommand(auswahl);
  
  ende := CreateCommand('Beenden', CM_EXIT, 1);
  AddCommand(ende);
  
  repeat clicked := GetClickedCommand;
          if clicked = auswahl then
            begin
              if menuGetSelectedIndex = einstellungen then PlayAlertSound;
              if menuGetSelectedIndex = programmierung then sending;
              if menuGetSelectedIndex = info then PlayAlertSound;
            end;
  until clicked = ende;
end.