[DeSoLaToR]

Как сделать ввод в эдит ТОЛЬКО цыфр И запятой!
Только цыфры получилось а вот запятую к ним приделать ну никак немагу ((

Код:

 if(Key<'0') or (Key>'9') then Key:=#0;

вобщем нужно элементы вещественного типа (real).
Вот...
помогите пожалуста