Dica para fazer a data e a hora aparecer da maneira escolhida independente das configuraçoti

Dica para fazer a data e a hora aparecer da maneira escolhida independente das configurações regionais


var
Ano,Mes,Dia:Word;
Hora,Min,Sec,MSec:Word;
begin

DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,Hora,Min,Sec,MSec);
ShortDateFormat := 'dd/mm/yyyy';
LongTimeFormat := 'hh:nn';
LongDayNames[1] := 'Domingo'; LongDayNames[2] := 'Segunda'; LongDayNames[3] := 'Terça';
LongDayNames[4] := 'Quarta'; LongDayNames[5] := 'Quinta'; LongDayNames[6] := 'Sexta';
LongDayNames[7] := 'Sábado';
Label1.Caption := FormatDateTime('"Hoje é" dddd, c',
StrToDateTime(IntToStr(Dia) + '/' + IntToStr(Mes) + '/' +
IntToStr(Ano) + ' ' + IntToStr(Hora) + ':' +
IntToStr(Min) + ':' + IntToStr(Sec)));
end;