Frage zu (Midlet)PASCAL!

[Grolle]

Hi,
ich habe ein kleines Denkproblem mit einem Pascalprogramm. Und zwar soll ein
Menü angezeigt werden. Bei Auswahl wird eine Prozedur ausgelöst. Sobald diese
beendet ist soll das Programm wieder im Hauptmenü landen. Das tut aber
nicht. Hier der Quelltext:

Delphi-Quellcode:

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.

Viele Grüße...