Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[gfjs]

Hallo, Allerseits.

Ich schon wieder - mit einem neuen Problem:

Mit

Delphi-Quellcode:

procedure TFStart.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key in [48..57] then
  begin
    Edit2.SetFocus;
    Memo11.Text := Text2;
  end else
  begin
    Edit1.Clear;
    MessageBeep(1000);
  end;
end;

versuche ich, meine Anwendung dazu zu bewegen, nur Eingaben von '0' bis '9' zu akzeptieren. Bis eben dachte ich auch, das wäre mir gelungen - bis ich aus Versehen auf die Taste ganz links oben kam: ^

Erstaunlicherweise - zumindest für mich - werden die Anweisungen aus dem if-Block und nicht die aus dem else-Block ausgeführt und es kommt auch noch eine Fehlermeldung.

Wie immer bin ich dankbur für Eure Unterstützung.

gruß Jürgen

[edit=Luckie]Titel geändert. Mfg, Luckie[/edit]