다시 보니 KeyDown 이벤트를 쓰셨군요. 1바이트 코드를 받을때는 KeyPress 이벤트를 써야 합니다..
아래처럼 쓰시면 됩니다..

방향키나 PgUP, PgDn같은 2바이트 코드를 받을시에는 KeyDown이벤트를 쓰세요..

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
    switch(Key)
    {
    case '.':
        ShowMessage(".");

        break;
    case '1':
        ShowMessage("1");

        break;
    case '2':
        ShowMessage("2");

        break;
    case '3':
        ShowMessage("3");

        break;
    case '4':
        ShowMessage("4");

        break;
    }
}



대마두 님이 쓰신 글 :
: 키보드 입력을 받는 계산기를 만들고 있습니다...
:
: 키보드 입력에서 OnKeyDown이벤트를 받아 입력하는데요 점(.)을 입력을 못하고 있는데요...
:
:       else if (Key == ***)     {
:            Key = 0;
:            btnDotClick(this);
:            }
:
: 위에 *** 자리에 머가 들어가야 되나요?
:
: 아스키 코드도 안되고 버추얼키도 점에 대한 입력키가 없네요....
:
: 도움 주심 감사하겠습니다....