Eingabeeinschränkung bei Edit wird ignoriert

[BAMatze]

In der Ursprungskomponente ist mir auch etwas komisches aufgefallen, dass nämlich eine Zeile übersprungen wird. Hab sie mal markiert:

Delphi-Quellcode:

procedure TLabEdit.FEdKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// Die Änderung hier an dieser Prozedur sehen wie folgt aus: OnChange wird nur
// aktiviert, wenn eine Eingabe getätigt wurde, die verschieden von der vorherigen
// ist.
// Bei Esc wird alles wieder zurückgesetzt und das OnChangeEvent wird nicht aktiviert.
  if key in [13, 27] then
    begin
      FEdEingabe.Visible := false;
      FLblAnzeige.Visible := true;
      case key of
      13: begin
            FLblAnzeige.Caption := FEdEingabe.Text;
            //UpdateLabelCaption(FLblAnzeige.Caption);
            if FsTextWert <> FEdEingabe.Text  then if assigned(FOnChange) then FOnchange;
            FsTextWert := FEdEingabe.Text;
          end;
      27: begin
            FLblAnzeige.Caption := FsTextWert;
            //UpdateLabelCaption(FLblAnzeige.Caption);
            FEdEingabe.Text := FsTextWert;
          end;
      end;
    end;

  inherited; // <--- wird einfach übersprungen
  //FLblAnzeige.Caption := FEdEingabe.Text;
  //UpdateLabelCaption(FLblAnzeige.Caption);
  //ChangeEmbeddedEdit;

end;