Hola.
Los valores actuales de los formatos de la configuración regional, también se pueden obtener consultando directamente las variables.
Ejemplo:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender) {
char const* MSGE = "Separador %s: [ %s ]";
ShowMessage(
Format(MSGE, ARRAYOFCONST(("decimal ",DecimalSeparator))) +'\n'+
Format(MSGE, ARRAYOFCONST(("de miles",ThousandSeparator))) +'\n'+
Format(MSGE, ARRAYOFCONST(("de fecha",DateSeparator))) +'\n'+
Format(MSGE, ARRAYOFCONST(("de lista ",ListSeparator)))
//...
);
}
Saludos.