[[Lepe]]

Una forma simple podría ser esta en el OnkeyPress del Edit:

Código Delphi [-]
if key in [sysutils.DecimalSeparator, sysutils.ThousandSeparator] then
 key := #0; // anulamos la tecla si es un punto o una coma.
else if key in ['0'-'9',#8,#9] then // eso de 8 y 9 es para permitir la tecla retroceso
 hacer lo que sea
else
 key := #0

Si no dejamos escribir el punto ni la coma, ya no podrá escribir ningún valor flotante. Eso si, ten cuidado porque con copiar y pegar si puede escribir dicho caracter, quizás deberías hacer una rutina ValidaCadena que coja el texto del edit y elimine el caracter punto o coma... más o menos como he hecho ahí.

Saludos