if not (key in ['0'..'9',#8]) then begin Key:=#0; //girilen karakter rakam veya backspace de?ilse null(#0)'a dönü?tür Beep; //bip sesi ile kullanycyyy uyar. end;