Ввод дробных чисел

[bloodykz]

Вопрос: В поле Edit1 надо чтобы вводились и целые и дробные числа, а остальные знаки не вводились, Пробовал через DecimalSeparator но XE3 не понимает что это)) Сделал через LOCALE_SDECIMAL он заблокировал всю клаву кроме цифр , так как мне поставить знак ограничения ','???

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

if (Key == LOCALE_SDECIMAL)
{
	if((Edit1->Text).Pos(LOCALE_SDECIMAL) !=0)
	Key=0;
	return;
}
if (Key==VK_RETURN)
{
	Edit2->SetFocus();
	return;
} ;
Key=0 ;
}

[FataLL]

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

if (Key == LOCALE_SDECIMAL)
{
	return;
}
if (Key==VK_RETURN)
{
	Edit2->SetFocus();
	return;
} 
Key=0 ;