Pues en el evento OnKeyPress
Código Delphi
[-]
If not (Key in ['0'..'9', #8, #13]) then key:=#0;
Para asegurarte que hay 9 carácteres, utiliza la función Length(Edit1.text);
De todas formas, de esto ya se ha hablado en los foros. Haz una búsqueda para más información.
Saludos.
