punto y coma

[AlejandroCalica]

buenos dias a todos llevo este codigo en la parte del punto decimal

Código Delphi [-]
begin
if (POS('.',Display.Caption)<> 0) then
exit
else
Display.Caption:=Display.Caption+'.';

pero esto desde un boton, aqui mi duda es como poder hacer para que el usuario si ingresa punto o ingresa coma, siga saliendo solo el punto.

Y si no fuera molestia como hacer esto aparte para captura de Teclas ya que lo que trato es no usar Boton de punto sino qque el usuario solo precione las teblas de la laptop y no un boton en el programa.