간단하게 Edit에서 숫자만 입력 받기

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // 0~9, 백스페이스, 엔터만 입력 허용
  if not (Key in ['0'..'9', #8, #13]) then begin
    Key := #0;
  end;
end;