[jafera]

Gracias Ecfisa.

Por lo que deduzco deberia quedar así?:

Código Delphi [-]
procedure TF_Inici.ApplicationMessage(var Msg: TMsg; var Handled: Boolean); begin      
DecimalSeparator:='.';      
ThousandSeparator:=','; 
end;

Saludos