buat procedure ini saat mulai me Load aplikasi kita
procedure RegionalSetting_ID;
begin
CurrencyString := 'Rp.';
CurrencyFormat := 2; {Contoh: 'Rp. 1'}
NegCurrFormat := 14; {Contoh: '(Rp. 1)'}
CurrencyDecimals := 2;
TimeAMString := 'AM';
TimePMString := 'PM';
ThousandSeparator := '.';
DecimalSeparator := ',';
DateSeparator := '-';
TimeSeparator := ':';
LongTimeFormat := 'hh:mm:ss';
ShortTimeFormat := 'hh:mm';
ShortDateFormat := 'dd-mm-yyyy';
LongDateFormat := 'dd mmmm yyyy';
LongDayNames[1] := 'Senin';
LongDayNames[2] := 'Selasa';
LongDayNames[3] := 'Rabu';
LongDayNames[4] := 'Kamis';
LongDayNames[5] := 'Jumat';
LongDayNames[6] := 'Sabtu';
LongDayNames[7] := 'Minggu';
ShortDayNames[1] := 'Sen';
ShortDayNames[2] := 'Sel';
ShortDayNames[3] := 'Rab';
ShortDayNames[4] := 'Kam';
ShortDayNames[5] := 'Jum';
ShortDayNames[6] := 'Sab';
ShortDayNames[7] := 'Ming';
ShortMonthNames[1] := 'Jan';
ShortMonthNames[2] := 'Feb';
ShortMonthNames[3] := 'Mar';
ShortMonthNames[4] := 'Apr';
ShortMonthNames[5] := 'Mei';
ShortMonthNames[6] := 'Jun';
ShortMonthNames[7] := 'Jul';
ShortMonthNames[8] := 'Agt';
ShortMonthNames[9] := 'Sep';
ShortMonthNames[10] := 'Okt';
ShortMonthNames[11] := 'Nov';
ShortMonthNames[12] := 'Des';
LongMonthNames[1] := 'Januari';
LongMonthNames[2] := 'Februari';
LongMonthNames[3] := 'Maret';
LongMonthNames[4] := 'April';
LongMonthNames[5] := 'Mei';
LongMonthNames[6] := 'Juni';
LongMonthNames[7] := 'Juli';
LongMonthNames[8] := 'Agustus';
LongMonthNames[9] := 'September';
LongMonthNames[10] := 'Oktober';
LongMonthNames[11] := 'November';
LongMonthNames[12] := 'Desember';
end;
