problem bei schleife

[Nicodius]

Delphi-Quellcode:

//Z1    
      Str := Pos('!-',Text.Lines.Strings[i])+2;
      for e := 0 to Pos('+', Text.Lines.Strings[i]) do
        Befehl := Befehl + Text.Lines.Strings[i][Str+e];
      Z1 := Befehl;
      Befehl := '';
// Z2
      Str := Pos('+',Text.Lines.Strings[i])+1;
      for e := 0 to Pos('-!', Text.Lines.Strings[i]) do
        Befehl := Befehl + Text.Lines.Strings[i][Str+e];
      Z2 := Befehl;
      SendMessage(Addieren(StrToInt(Z1),StrToInt(Z2)));
    end;

--> man gibt das ein Rw: !-4+9-! und 13 sollte in ner mesasge(prozeduren stimmen alle es geht nur um die schleife) ausgeben


also das Problem er schribt nacher "9-! kein Integer --> bei //Z2

--> --> --> pos-2 bringt auch nix...

danke im Voraus