[Casimiro Notevi]

Ya te lo ha contestado kuan-yiu

Empezado por kuan-yiu

Hay algunos componentes que controlan que no se tecleen dos separadores decimales, por ejemplo TCurrencyEdit. Busca alguno que ya haga el trabajo por ti.
Para controlar que solo pueda teclear una coma como separador decimal solo tienes que incluir este código, o algo similar, en el evento OnKeyPress:

Código Delphi [-]
If key = '.' then Key := DecimalSeparator;