Eingabebedingungen

[CIADelphianer]

Hallo,
wir haben wieder eine Frage an euch:

Wir haben eine Comboxbox und zwei Editfelder über die wir eine Containerbezeichnung hinzufügen wollen.
Im zweiten Edit-Feld soll eine vierstellige Zahlen- und Buchstabenkombination eingegeben werden. Die Eingabebeschränkungen haben wir soweit hinbekommen aber manche Kombinationen funktionieren trotzdem nicht..
wie z.B 25G3. G kann mit den Zahlen 0,1,2 und 3 kombiniert werden, es lassen aber nur die Zahlen von 0-2 eingeben.

Delphi-Quellcode:

if (key in ['G']) and
(EditISOCode.SelStart = 2)  then
begin
  Statusbar.SimpleText := 'Mit G können Sie nur die Zahlen 0,1,2 und 3 kombinieren, sonst ungültige Containerbezeichnung!';
end;
   if not (key in [#8,'0'..'3']) and
   (EditISOCode.SelStart =3) then
    begin
    Key:= #0;
    end;

Dieser Quellcode bezieht sich jetzt nur auf das 3. und 4.Zeichen.
Vielen Danke für eure Hilfe!
Liebe Grüße