델파이의 TEdit에서 숫자만 입력 가능하게

TEdit에서 숫자만 입력 가능하게 하는 방법

procedure TfrmTest.edtTestKeyPress(Sender: TObject; var Key: Char);
begin
  // 숫자만 입력 가능하게
  if (key in ['0'..'9']) or (Key = #8) then
  else
    Key := #0;
end;





아래와 같이도 할 수 있음

  iKey := ord(Key);
  if iKey = $08 then exit;

  if not(iKey in [$30..$39]) then
  begin
    Key := #0;
    exit;
  end;