Eingabe von Buchstaben verhindern

[Aike]

Tach

ich wollte mal wissen, wie ich verhindern kann, dass jemand Buchstaben in mein Edit-Feld eingibt. Das habe ich so probiert, ging aber nicht:

Delphi-Quellcode:

procedure TfrmRechner.edEingabeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
    buchstabe:boolean;
    Zahl:array[0..9] of integer;
begin
  buchstabe:=false;

  for i:=0 to 9 do
    zahl[i]:=i;
  
  for i:=0 to 9 do
  begin
    if Key<>zahl[i] then
      buchstabe:=true;
    if Key=zahl[i] then
      buchstabe:=false;

    if not Buchstabe then
      break;
  end;

  if Buchstabe then
    Key:=0; //was besseres ist mir nicht eingefallen. gibt 's denn sowas wie Key:=''?
end;