[cotseec]

а не проще сделать наоборот? (вам же только цифры надо)

Код:

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9':;
#8:;// чтобы и BackSpace воспринимался
else Key := #0;
end;
end;