Prosedur Format Indonesia

Bagi teman2 yang pengen tahu prosedur untuk merubah format currency atau tanggal indonesia ini sekedar tips. Jika ada yang mau di tanyakan silahkan posting komentar teman2

procedure TDM.DateToIndonesia();
begin
  CurrencyString := 'Rp.';
  CurrencyFormat := 2;
  NegCurrFormat := 14;
  CurrencyDecimals := 2;
  TimeAMString := 'AM';
  TimePMString := 'PM';
  ThousandSeparator := ',';
  DecimalSeparator := '.';

  LongTimeFormat := 'hh:mm:ss';
  ShortTimeFormat := 'hh:mm';
  LongDateFormat := 'dd mmmm yyyy';
  ShortDateFormat := 'dd/mm/yyyy';

  LongDayNames[1] := 'Minggu';
  LongDayNames[2] := 'Senin';
  LongDayNames[3] := 'Selasa';
  LongDayNames[4] := 'Rabu';
  LongDayNames[5] := 'Kamis';
  LongDayNames[6] := 'Jum''at';
  LongDayNames[7] := 'Sabtu';

  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] := 'Nopember';
  LongMonthNames[12] := 'Desember';
end;