cambiar el punto por la coma

[rimbener]

Otra forma puede ser ésta:

Código Delphi [-]
                                                                                procedure TfmRecibos.ImporteKeyPress(Sender: TObject; var Key: Char);
begin
   if (key = '.') or (key = ',') then
      key := DecimalSeparator
   else
      if not (key in ['0'..'9', #8]) then
         key := #0;
end;

DecimalSeparator es la constante que usa el sistema operativo en la configuración regional, de esta manera al llevar el programa a una computadora con distinta configuración el funciona igual.

[penabad]

Aunque este mensaje es "antiguo", he visto en http://www.latiumsoftware.com/en/delphi/00047.php
un método MUY interesante: interceptar los mensajes de la aplicación de forma que (para todos los lugares en que tecleemos, eso sí) cuando se
pulse el punto en el teclado numérico lo cambie por una coma.