Tasen sperren mit key /Wie gebe ich entf/del frei?

[Quailin]

Da ich das selbe Problem habe wie Hallo_Thomas,
poste ich meine Lösung anbei wie ich Ganzzahlen inkl. Backspace taste freigeschaltet habe:

Delphi-Quellcode:

procedure TFrame_Tarifdaten.E_PraemienZahlDauerKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
    if Key = #8 then Key := #8 else //#8 ist der ASCII Wert für VK_BACK
    if not (Key in ['0'..'9'])  then Key := #0;
end;