Sustituir punto por coma

[fredo]

xxxKeyPress(Sender: TObject; var Key: Char)

si te fijas vasta con cambiarle el valor a la variable key para sustituirla por la que quieras.... saludos.

osea


if Ord(Key)=VK_DECIMAL then key:=',';

o

if Key = '.' then Key = ','

la palabra reserbada var acompañando al parametro indica que el valor que asignes se conservara aun despues de la ejecucion del procedimiento, ya que es un parametro varuable....