[salzer]

как разрешить стирать

Код:

if (Key in ['0'..'9']) or (Key=#013) then a:=1 else key :=#0;

[deltas]

Код:

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

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

[salzer]

именно это. спасибо. тлько у тебя там пара ошибок мелких)