[MegaPiha]

Много раз обсуждалось.
В событии onKeyPress Edita прописать

Код:

  case key of '0'..'9', #8:;
  else 
      key :=chr(0);
      ShowMessage('Ругань всякая...')
  end;