Tips sederhana merubah tampilan Hari dan bulan menjadi bahasa Indonesia

var
Form1: TForm1;

const
SLongDayNameSun = 'Minggu';
SLongDayNameMon = 'Senin';
SLongDayNameTue = 'Selasa';
SLongDayNameWed = 'Rabu';
SLongDayNameThu = 'Kamis';
SLongDayNameFri = 'Jum''at';
SLongDayNameSat = 'Sabtu';

SLongMonthNameJan = 'Januari';
SLongMonthNameFeb = 'Pebruari';
SLongMonthNameMar = 'Maret';
SLongMonthNameApr = 'April';
SLongMonthNameMay = 'Mei';
SLongMonthNameJun = 'Juni';
SLongMonthNameJul = 'Juli';
SLongMonthNameAug = 'Agustus';
SLongMonthNameSep = 'September';
SLongMonthNameOct = 'Oktober';
SLongMonthNameNov = 'Nopember';
SLongMonthNameDec = 'Desember';

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption:=FormatDateTime('dddd, dd mmmm yyyy',Now);
end;