StrToInt funzt nicht!

[Flons]

Vielen Dank auch für den Hinweis. Ich habe mögliche Fehleingaben jetzt abgefangen. Dabei reagiere ich sowohl auf falsche Zahl- als auch auf Buchstabeneingaben.

Hier mein Code:

Delphi-Quellcode:

try
    x:= StrToInt(Anlage[1]);
    case x of
      1..3: FMain.Anlage:=x;
    else
      //Wenn nicht, gib Meldung aus und starte mit 1:
      Application.MessageBox('Falscher Paramter!'
      + #13 + 'Gültige Parameter: 1, 2 oder 3!'
      + #13 + 'Es wird mit Parameter 1 gestartet!','Problem',16);
      FMain.Anlage:=1        
    end;
    //Wenn keine (gueltige) Zahl, gib Meldung aus und starte mit 1:
  except
    Application.MessageBox('Falscher Paramter!'
    + #13 + 'Gültige Parameter: 1, 2 oder 3!'
    + #13 + 'Es wird mit Parameter 1 gestartet!','Problem',16);
    FMain.Anlage:=1;

Gruß an alle.
Schöne Ostertage
Florian