[deltas]

Код:

procedure 
  TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case 
  Key of
'0' .. '9',#8: ; // цифры и клавиша <Backspace> 
#13: 
else 
  Key := Chr(O); // символ не отображать 
end;
  end;

Наподобие этого?