Ich muss zwar zustimmen, dass man mehr suchen könnte, aber helfe trotzdem:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then Key:= #0;
end;
Du kannst auch noch "Decimalseperator" für einen "." (Punkt), "Thousandseperator" für ein "," (Komma) und "VK_Back" für das Erlauben zum Drücken der Backspacetaste einbauen.
if not (key in ['0'..'9', DecimalSeparator, ThousandSeparator, Char(VK_BACK)]) then key:= #0;
Wie das mit deinem Code funtzen soll, kA sry ^^