Problem z zablokowaniem kropki w polu Edit

Witam zablokowałem możliwość wpisywania liter i znaków w polu Edit, jednak w żaden sposób nie mogę, zablokować znaku kropki, próbowałem paru rozwiązań, ale nic nie pomogło.

void __fastcall TForm1::KRPress(TObject *Sender, char &Key)
{
	if(Key >= '0' && Key <= '9' || Key == VK_BACK || Key == VK_DELETE)
	{
	}
	else
	{
		Key = 0;
	}
}

VK_DELETE nie przechodzi przez OnKeyPress .
Stała VK_DELETE jest równa '.' (46) dlatego jak naciśniesz kropkę to kod trafia
do ..... if(... Key == VK_DELETE){ tu}
Wywal VK_DELETE .

if((Key >= '0') && (Key <= '9' ) || Key == VK_BACK)
{

}else{
            Key = 0 ;
     }

Dzięki wielkie już działa ;]