Fehler Meldung unterdrücken

[arbu man]

Delphi-Quellcode:

procedure TForm1.dobe;// ausfüren von befehlen die im script stehen
begin
  if e=false then begin
    if b=false then begin  // zum schlißen
      // begin mit einlesen der befehle
      c:=c+1; // cursor weiter setzen
       // wenn liste zuende
      if c>=max then begin form1.close;
                           b:=true;
                           exit;end else begin
         if sl[c]='' then begin dobe; exit;end; // bei leerstring weiter
         try     // falls was schif geht
           splitString(sl[c],'|',be); //zerlege befehl
           be.Add('');be.Add('');// damit keine fehler kommen
           //anweisung erkennen

           //showmessage fumction
           if be[0]='showmessage' then showmessage(be[1]);
           // beenden
           if be[0]='end' then begin form1.SetFocus; form1.Close;b:=true; exit; end;
           //hate script an
           if be[0]='halt' then sleep(strtoint(be[1]));
           // app starten und auf ende warten
           if be[0]='install' then begin 
              Starte(extractfilepath(application.ExeName),be[1]);;;;end;
           // zeile schreiben
           if be[0]='print'then begin Add(be[1]);end;
           // aus
           if be[0]='close'then application.Terminate;
           // benutzer gibt eine rechnung ein die ausgerechnet wird
           if be[0]='rechne' then begin e:=true; es:=be[0]; edit1.SetFocus;  end;
           // warte auf benutzer eingabe
           if be[0]='wait' then begin e:=true; es:=be[0]; edit1.SetFocus;  end;
         finally
           be.Clear;// stringliste für nächste anweisung vorbereiten
           if b=false then dobe; // wiederholen
         end;
       end;
    end;
  end;
end;