procedure TXXX.XXXKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8 ,#3 ,#22]) then
Key:=#0;
end;