Не пойму, в чем проблема. Код вроде нормальный, но не работает.

if ((Key >= '0') && (Key <= '9')) return;
else Key = 0;

Буквы все равно вводятся. Обработчик OnKeyDown.

Спасибо. Разобрался сам. Обработчик нужно писать на OnKeyPress.

Но при этом не работает клавиша BackSpace (стирание)... Кто поможет?

Гугл помогает всем, особенно тем, кому не лень им пользоваться!

if ((Key >= '0') && (Key <= '9')) {}  // цифры
else if (Key == 8) {}  // <-
else if ((Key == '.') || (Key == ',')) // запятая
        {
        if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // если запятая уже есть
                Key = 0;
        else // если ещё нет
                Key = DecimalSeparator;
        }
else Key = 0; // не цифра

P.S. DecimalSeparator - глобальная переменная - разделитель целой и дробной части.

ПРИОГРОМНЕЙШЕЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!